diff options
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/List/Util/lib/List/Util.pm | 2 | ||||
| -rw-r--r-- | ext/List/Util/lib/Scalar/Util.pm | 2 | ||||
| -rw-r--r-- | ext/List/Util/t/lln.t | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/ext/List/Util/lib/List/Util.pm b/ext/List/Util/lib/List/Util.pm index 77a52f6e1d..ff38fb4469 100644 --- a/ext/List/Util/lib/List/Util.pm +++ b/ext/List/Util/lib/List/Util.pm @@ -10,7 +10,7 @@ require Exporter; @ISA = qw(Exporter); @EXPORT_OK = qw(first min max minstr maxstr reduce sum shuffle); -$VERSION = "1.13"; +$VERSION = "1.13_01"; $XS_VERSION = $VERSION; $VERSION = eval $VERSION; diff --git a/ext/List/Util/lib/Scalar/Util.pm b/ext/List/Util/lib/Scalar/Util.pm index c2aabcaa09..ad192a8a74 100644 --- a/ext/List/Util/lib/Scalar/Util.pm +++ b/ext/List/Util/lib/Scalar/Util.pm @@ -11,7 +11,7 @@ require List::Util; # List::Util loads the XS @ISA = qw(Exporter); @EXPORT_OK = qw(blessed dualvar reftype weaken isweak tainted readonly openhandle refaddr isvstring looks_like_number set_prototype); -$VERSION = "1.13"; +$VERSION = "1.13_01"; $VERSION = eval $VERSION; sub export_fail { diff --git a/ext/List/Util/t/lln.t b/ext/List/Util/t/lln.t index fe3ba4cb3a..80b0996c56 100644 --- a/ext/List/Util/t/lln.t +++ b/ext/List/Util/t/lln.t @@ -41,7 +41,7 @@ ok(!!looks_like_number("Inf"), $] >= 5.006001); ok(!!looks_like_number("Infinity"), $] >= 5.008); ok(!!looks_like_number("NaN"), $] >= 5.008); ok(!!looks_like_number("foo"), ''); -ok(!!looks_like_number(undef), 1); +ok(!!looks_like_number(undef), $] < 5.009002); # That's enough - we trust the perl core tests like t/base/num.t __END__ |