diff options
| author | Tobi Oetiker <tobi@oetiker.ch> | 2006-08-29 11:08:31 +0200 |
|---|---|---|
| committer | Tobi Oetiker <tobi@oetiker.ch> | 2006-08-29 11:08:31 +0200 |
| commit | f86998b3e0c689ca234245343aa75e7cdc5519d3 (patch) | |
| tree | 128a863ea8bae0cae204735bab96f67054b6b073 /lib/Smokeping/RRDtools.pm | |
| parent | c2b6279de0c09f62ef2a43e1f35955046600e74c (diff) | |
| download | smokeping-f86998b3e0c689ca234245343aa75e7cdc5519d3.tar.gz smokeping-f86998b3e0c689ca234245343aa75e7cdc5519d3.tar.xz | |
merge back to trunk
Diffstat (limited to 'lib/Smokeping/RRDtools.pm')
| -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; |