diff options
| author | Mark-Jason Dominus <mjd@plover.com> | 2002-04-01 20:32:18 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-04-01 20:16:46 +0000 |
| commit | cf8feb78124b90756575c16fb087f9e129ee3a6d (patch) | |
| tree | 74d27b299f9b8e90430294fe5b7672c140877304 /lib/Tie | |
| parent | 75e258e97985e881c3ecf10011cdd639fc68778c (diff) | |
| download | perl-cf8feb78124b90756575c16fb087f9e129ee3a6d.tar.gz | |
Message-ID: <20020401203218.25230.qmail@plover.com>
p4raw-id: //depot/perl@15667
Diffstat (limited to 'lib/Tie')
| -rw-r--r-- | lib/Tie/File/t/04_splice.t | 7 | ||||
| -rw-r--r-- | lib/Tie/File/t/10_splice_rs.t | 5 |
2 files changed, 7 insertions, 5 deletions
diff --git a/lib/Tie/File/t/04_splice.t b/lib/Tie/File/t/04_splice.t index 156adc31d0..601f1f23d6 100644 --- a/lib/Tie/File/t/04_splice.t +++ b/lib/Tie/File/t/04_splice.t @@ -154,14 +154,15 @@ splice(@a, 89, 0, "pie pie pie"); 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 +# This test ignored because it causes 5.6.1 and 5.7.3 to dump core +# It also garbles the stack under 5.005_03 (20020401) # NOT MY FAULT -if ($] < 5.006 || $] > 5.007003) { +if ($] > 5.008) { 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.3 dump core here.)\n"; + print "ok $N \# skipped (5.6.0 through 5.8 dump core here.)\n"; } $N++; diff --git a/lib/Tie/File/t/10_splice_rs.t b/lib/Tie/File/t/10_splice_rs.t index 4db144398e..e4d472a878 100644 --- a/lib/Tie/File/t/10_splice_rs.t +++ b/lib/Tie/File/t/10_splice_rs.t @@ -154,13 +154,14 @@ check_contents("Iblahlikeblahpieblahpie pie pieblah"); # (97) Splicing with too large a negative number should be fatal # This test ignored because it causes 5.6.1 and 5.7.3 to dump core +# It also garbles the stack under 5.005_03 (20020401) # NOT MY FAULT -if ($] < 5.006 || $] > 5.007003) { +if ($] > 5.008) { 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.3 dump core here.)\n"; + print "ok $N \# skipped (5.6.0 through 5.8 dump core here.)\n"; } $N++; |