From: Marcus Holland-Moritz <mhx-perl@gmx.net>
Date: Sun, 26 Oct 2008 22:20:48 +0000 (+0000)
Subject: No, it's not a const SV* if we subsequently call
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5fe77bf88d77245625a76ac492c734cdfcf1ae14;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;