Change 14555: Integrate change #14439 from maintperl

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.