From 205fff014be2afad6cb4430a2fceabea8111c885 Mon Sep 17 00:00:00 2001
From: Niko Tyni <ntyni@iki.fi>
Date: Mon, 23 May 2005 18:02:01 +0000
Subject: * Perl 5.8.0 compatibility fix ("missing max for DS uptime")

---
 lib/Smokeping/RRDtools.pm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'lib/Smokeping')

diff --git a/lib/Smokeping/RRDtools.pm b/lib/Smokeping/RRDtools.pm
index ac70837..4a695d1 100644
--- a/lib/Smokeping/RRDtools.pm
+++ b/lib/Smokeping/RRDtools.pm
@@ -93,6 +93,7 @@ use RRDs;
 sub info2create {
 	my $file = shift;
 	my @create;
+    my $buggy_perl_version = 1 if $^V and $^V eq v5.8.0;
 	my $info = RRDs::info($file);
 	my $error = RRDs::error;
 	die("RRDs::info $file: ERROR: $error") if $error;
@@ -112,7 +113,8 @@ sub info2create {
 		my @s = ("DS", $ds);
 		for (qw(type minimal_heartbeat min max)) {
 			die("$file: missing $_ for DS $ds?")
-				unless exists $info->{"ds[$ds].$_"};
+				unless exists $info->{"ds[$ds].$_"}
+                or $buggy_perl_version;
 			my $val = $info->{"ds[$ds].$_"};
 			push @s, defined $val ? $val : "U";
 		}
@@ -122,7 +124,8 @@ sub info2create {
 		my @s = ("RRA", $info->{"rra[$i].cf"});
 		for (qw(xff pdp_per_row rows)) {
 			die("$file: missing $_ for RRA $i")
-				unless exists $info->{"rra[$i].$_"};
+				unless exists $info->{"rra[$i].$_"}
+                or $buggy_perl_version;
 			push @s, $info->{"rra[$i].$_"};
 		}
 		push @create, join(":", @s);
-- 
cgit v1.2.3-24-g4f1b