diff options
Diffstat (limited to 'lib/Tie/File/t/04_splice.t')
| -rw-r--r-- | lib/Tie/File/t/04_splice.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Tie/File/t/04_splice.t b/lib/Tie/File/t/04_splice.t index e291809d3f..08e001b8aa 100644 --- a/lib/Tie/File/t/04_splice.t +++ b/lib/Tie/File/t/04_splice.t @@ -153,12 +153,12 @@ check_contents("I$/like$/pie$/pie pie pie$/"); # (97) Splicing with too large a negative number should be fatal # This test ignored because it causes 5.6.1 and 5.7.2 to dump core # NOT MY FAULT -if ($] < 5.006 || $] > 5.007002) { +if ($] < 5.006 || $] > 5.007003) { eval { splice(@a, -7, 0) }; print $@ =~ /^Modification of non-creatable array value attempted, subscript -7/ ? "ok $N\n" : "not ok $N \# \$\@ was '$@'\n"; } else { - print "ok $N \# skipped (5.6.0 through 5.7.2 dump core here.)\n"; + print "ok $N \# skipped (5.6.0 through 5.7.3 dump core here.)\n"; } $N++; |