No, it's not a const SV* if we subsequently call

SvREFCNT_dec() on it.

p4raw-id: //depot/perl@34600

diff --git a/pad.c b/pad.c
index 1dbdb72..9f6e764 100644 (file)
--- a/pad.c
+++ b/pad.c
@@ -317,7 +317,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;