This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove code in Storable's tests that handles perl < v5.6.1
[perl5.git] / dist / Storable / t / integer.t
index b17f392..b6d9f90 100644 (file)
@@ -156,11 +156,6 @@ foreach (@processes) {
       die "Was supposed to have number $copy_s3, got error $@"
        unless defined $copy_s3;
       my $bit = ok (($copy_s3 ^ $copy1) == 0, "$process $copy1 (bitpattern)");
-      # This is sick. 5.005_03 survives without the IV/UV flag, and somehow
-      # gets it right, providing you don't have side effects of conversion.
-#      local $TODO;
-#      $TODO = "pre 5.6 doesn't have flag to distinguish IV/UV"
-#        if $] < 5.005_56 and $copy1 > $max_iv;
       my $sign = ok (($copy_s2 <=> 0) == ($copy2 <=> 0),
                      "$process $copy1 (sign)");