Change 13478: tweak change#13474 (pad entries can apparently be null in some

[Gurusamy Sarathy]

Change 13478 by gsar@onru on 2001/12/05 18:22:38

        tweak change#13474 (pad entries can apparently be null in some
        situations)

Affected files ...

.... //depot/maint-5.6/perl/op.c#53 edit

Differences ...

==== //depot/maint-5.6/perl/op.c#53 (text) ====
Index: perl/op.c
--- perl/op.c.~1~       Wed Dec  5 11:30:05 2001
+++ perl/op.c   Wed Dec  5 11:30:05 2001
@@ -4141,7 +4141,7 @@
                    && *SvPVX(namesv) == '&')
                {
                    CV *innercv = (CV*)curpad[ix];
-                   if (SvTYPE(innercv) == SVt_PVCV
+                   if (innercv && SvTYPE(innercv) == SVt_PVCV
                        && CvOUTSIDE(innercv) == cv)
                    {
                        CvOUTSIDE(innercv) = outsidecv;
End of Patch.