This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Storable: comments
authorReini Urban <rurban@cpanel.net>
Mon, 20 Jun 2016 06:29:27 +0000 (08:29 +0200)
committerTony Cook <tony@develop-help.com>
Thu, 8 Feb 2018 02:34:10 +0000 (13:34 +1100)
dist/Storable/t/huge.t

index 39ffa9c..2511144 100644 (file)
@@ -19,9 +19,9 @@ BEGIN {
 # Just too big to fit in an I32.
 my $huge = int(2 ** 31);
 
-# These overlarge sizes are enabled only since Storable 3.00
-# and some cases need cperl support. Perl5 hash some internal problems
-# with >I32 sizes.
+# These overlarge sizes are enabled only since Storable 3.00 and some
+# cases need cperl support. Perl5 (as of 5.24) has some internal
+# problems with >I32 sizes.
 my @cases = (
     ['huge string',
      sub { my $s = 'x' x $huge; \$s }],
@@ -55,7 +55,7 @@ for (@cases) {
     note "running test: $desc";
     my ($exn, $clone);
     $exn = $@ if !eval { $clone = dclone($input); 1 };
-    if ($Config{usecperl}) {
+    if ($Config{usecperl} or $] >= 5.025003) { # guessing
         is($exn, '');
         is($input, $clone);
     } else {