The leavetry crash should now be history.

p4raw-id: //depot/perl@15707

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";