Change 20603 by [EMAIL PROTECTED] on 2003/08/10 19:48:42
Too many resulting core dumps.
Affected files ...
... //depot/maint-5.8/perl/pad.c#15 edit
... //depot/maint-5.8/perl/t/op/closure.t#8 edit
Differences ...
==== //depot/maint-5.8/perl/pad.c#15 (text) ====
Index: perl/pad.c
--- perl/pad.c#14~20598~ Sun Aug 10 11:29:12 2003
+++ perl/pad.c Sun Aug 10 12:48:42 2003
@@ -254,15 +254,9 @@
{
assert(CvWEAKOUTSIDE(innercv));
CvWEAKOUTSIDE_off(innercv);
+ CvOUTSIDE(innercv) = outercv;
CvOUTSIDE_SEQ(innercv) = seq;
- /* don't relink to grandfather if he's being freed */
- if (SvREFCNT(outercv)) {
- CvOUTSIDE(innercv) = outercv;
- SvREFCNT_inc(outercv);
- }
- else {
- CvOUTSIDE(innercv) = Nullcv;
- }
+ SvREFCNT_inc(outercv);
}
}
}
==== //depot/maint-5.8/perl/t/op/closure.t#8 (xtext) ====
Index: perl/t/op/closure.t
--- perl/t/op/closure.t#7~20601~ Sun Aug 10 12:38:36 2003
+++ perl/t/op/closure.t Sun Aug 10 12:48:42 2003
@@ -13,7 +13,7 @@
use Config;
-print "1..185\n";
+print "1..181\n";
my $test = 1;
sub test (&) {
@@ -604,34 +604,3 @@
linger(\$watch);
test { $watch eq '12' }
}
-
-require "./test.pl";
-
-curr_test(182);
-
-SKIP: { skip("tests not in maint because change #19637 not applied", 3) }
-
-$test= 185;
-
-# bugid #23265 - this used to coredump during destruction of PL_maincv
-# and its children
-
-my $got = runperl(
- prog => q[
- print
- sub {$_[0]->(@_)} -> (
- sub {
- $_[1]
- ? $_[0]->($_[0], $_[1] - 1) . sub {"x"}->()
- : "y"
- },
- 2
- )
- , "\n"
- ;
-
- ],
- stderr => 1
-);
-test { $got eq "yxx\n" };
-
End of Patch.
