Change 14555 by pudge@pudge-mobile on 2002/02/05 02:20:45
Integrate change #14439 from maintperl
Affected files ...
.... //depot/maint-5.6/macperl/op.c#5 integrate
Differences ...
==== //depot/maint-5.6/macperl/op.c#5 (text) ====
Index: perl/op.c
--- perl/op.c.~1~ Mon Feb 4 19:30:06 2002
+++ perl/op.c Mon Feb 4 19:30:06 2002
@@ -4140,7 +4140,8 @@
for (ix = AvFILLp(comppad_name); ix > 0; ix--) {
SV *namesv = namepad[ix];
if (namesv && namesv != &PL_sv_undef
- && *SvPVX(namesv) == '&')
+ && *SvPVX(namesv) == '&'
+ && ix <= AvFILLp(comppad))
{
CV *innercv = (CV*)curpad[ix];
if (innercv && SvTYPE(innercv) == SVt_PVCV
End of Patch.
