From f86998b3e0c689ca234245343aa75e7cdc5519d3 Mon Sep 17 00:00:00 2001
From: Tobi Oetiker <tobi@oetiker.ch>
Date: Tue, 29 Aug 2006 09:08:31 +0000
Subject: merge back to trunk

---
 lib/Smokeping/RRDtools.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'lib/Smokeping')

diff --git a/lib/Smokeping/RRDtools.pm b/lib/Smokeping/RRDtools.pm
index fe6ae4f..6fde06b 100644
--- a/lib/Smokeping/RRDtools.pm
+++ b/lib/Smokeping/RRDtools.pm
@@ -104,7 +104,10 @@ use RRDs;
 sub info2create {
 	my $file = shift;
 	my @create;
-        my $buggy_perl_version = 1 if $^V and $^V eq "v5.8.0";
+	# check for Perl version 5.8.0, it's buggy
+	# no more v-strings 
+        my $buggy_perl_version = 1 if abs($] - 5.008000) < .0000005;
+
 	my $info = RRDs::info($file);
 	my $error = RRDs::error;
 	die("RRDs::info $file: ERROR: $error") if $error;
-- 
cgit v1.2.3-24-g4f1b