Change 16359 by gsar@rake on 2002/05/02 22:52:09
a tweak to change#13584: need to avoid pad-walking during
global destruction
Affected files ...
.... //depot/maint-5.6/perl/op.c#57 edit
Differences ...
==== //depot/maint-5.6/perl/op.c#57 (text) ====
Index: perl/op.c
--- perl/op.c.~1~ Thu May 2 17:00:05 2002
+++ perl/op.c Thu May 2 17:00:05 2002
@@ -4132,7 +4132,8 @@
if (SvREFCNT(CvPADLIST(cv))) {
AV *padlist = CvPADLIST(cv);
I32 ix;
- if (is_eval) {
+ /* pads may be cleared out already during global destruction */
+ if (is_eval && !PL_dirty) {
/* inner references to eval's cv must be fixed up */
AV *comppad_name = (AV*)AvARRAY(padlist)[0];
AV *comppad = (AV*)AvARRAY(padlist)[1];
End of Patch.
