Integrate:

[ 34600]
No, it's not a const SV* if we subsequently call
SvREFCNT_dec() on it.
p4raw-link: @34600 on //depot/perl: 5fe77bf88d77245625a76ac492c734cdfcf1ae14

p4raw-id: //depot/maint-5.10/perl@34644
p4raw-integrated: from //depot/perl@34600 'merge in' pad.c (@34585..)

1 files changed, 1 insertions, 1 deletions

diff --git a/pad.c b/pad.c
index 89acc520af..9895bc7fe3 100644
--- a/pad.c
+++ b/pad.c
@@ -312,7 +312,7 @@ Perl_pad_undef(pTHX_ CV* cv)
 
     ix = AvFILLp(padlist);
     while (ix >= 0) {
-	const SV* const sv = AvARRAY(padlist)[ix--];
+	SV* const sv = AvARRAY(padlist)[ix--];
 	if (sv) {
 	    if (sv == (SV*)PL_comppad_name)
 		PL_comppad_name = NULL;