This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
back out change #22167 "freeing a CV reference that was currently
[perl5.git] / t / op / closure.t
index f9da311..2425a59 100755 (executable)
@@ -13,7 +13,7 @@ BEGIN {
 
 use Config;
 
-print "1..186\n";
+print "1..185\n";
 
 my $test = 1;
 sub test (&) {
@@ -668,16 +668,4 @@ __EOF__
     END { 1 while unlink $progfile }
 }
 
-{
-    # bugid #24914 = used to coredump restoring PL_comppad in the
-    # savestack, due to the early freeing of the anon closure
-
-    my $got = runperl(stderr => 1, prog => 
-'sub d {die} my $f; $f = sub {my $x=1; $f = 0; d}; eval{$f->()}; print qw(ok)'
-    );
-    test { $got eq 'ok' };
-}
-
-
-