diff options
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/tiearray.t | 11 |
1 files changed, 3 insertions, 8 deletions
diff --git a/t/op/tiearray.t b/t/op/tiearray.t index 0c9130367e..9544f89f74 100755 --- a/t/op/tiearray.t +++ b/t/op/tiearray.t @@ -225,11 +225,7 @@ untie @ary; # 20020401 mjd-perl-patch+@plover.com # Thanks to Dave Mitchell for the small test case -{ require './test.pl'; - curr_test(35); - local $::TODO = 'Not fixed yet'; - fresh_perl_is(<<'End_of_Test', "ok", {}, "Core dump in 'leavetry'"); -######## [ID 20020301.011] Core dump in 'leavetry' in 5.7.2 +{ my @a; sub X::TIEARRAY { bless {}, 'X' } @@ -241,10 +237,9 @@ untie @ary; tie @a, 'X'; eval { splice(@a) }; - print "ok\n" -End_of_Test + # If we survived this far. + print "ok ", $test++, "\n"; } -$test++; print "not " unless $seen{'DESTROY'} == 2; print "ok ", $test++,"\n"; |