diff options
| author | Tobi Oetiker <tobi@oetiker.ch> | 2006-01-05 21:14:36 +0100 |
|---|---|---|
| committer | Tobi Oetiker <tobi@oetiker.ch> | 2006-01-05 21:14:36 +0100 |
| commit | b0435f544c7bc175a2a1741394357f2f44622a97 (patch) | |
| tree | 1cc1d29cee0d928a40fbd017b47726bdf699b2f0 | |
| parent | fb6979fa7f47246b2b8fd022f448030b7e1b8702 (diff) | |
| download | smokeping-b0435f544c7bc175a2a1741394357f2f44622a97.tar.gz smokeping-b0435f544c7bc175a2a1741394357f2f44622a97.tar.xz | |
portability for perl 5.8.7
| -rw-r--r-- | CHANGES | 3 | ||||
| -rw-r--r-- | lib/Smokeping/RRDtools.pm | 2 |
2 files changed, 4 insertions, 1 deletions
@@ -1,3 +1,6 @@ +* make buggy_perl_version test work on perl 5.8.7 too ... + --tobi from Nathan Butcher <xqufa .yokohama.riken.jp> + 2006/1/5 -- released version 20060105_trunk 2006/1/4 -- released version 20060104_trunk diff --git a/lib/Smokeping/RRDtools.pm b/lib/Smokeping/RRDtools.pm index 6127d49..fe6ae4f 100644 --- a/lib/Smokeping/RRDtools.pm +++ b/lib/Smokeping/RRDtools.pm @@ -104,7 +104,7 @@ use RRDs; sub info2create { my $file = shift; my @create; - my $buggy_perl_version = 1 if $^V and $^V eq v5.8.0; + 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; |