From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 3 Apr 2002 15:00:53 +0000 (+0000)
Subject: The leavetry crash should now be history.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=74d0c54f3328524c981198a2cf62d5ec89089dc8;p=p5sagit%2Fp5-mst-13.2.git

The leavetry crash should now be history.

p4raw-id: //depot/perl@15707
---

diff --git a/t/op/tiearray.t b/t/op/tiearray.t
index 0c91303..9544f89 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";