diff options
Diffstat (limited to 'lib/Smokeping')
-rw-r--r-- | lib/Smokeping/RRDtools.pm | 5 |
1 files changed, 4 insertions, 1 deletions
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; |