Change 34600 by [EMAIL PROTECTED] on 2008/10/26 22:20:48
No, it's not a const SV* if we subsequently call
SvREFCNT_dec() on it.
Affected files ...
... //depot/perl/pad.c#122 edit
Differences ...
==== //depot/perl/pad.c#122 (text) ====
Index: perl/pad.c
--- perl/pad.c#121~34585~ 2008-10-25 05:23:01.000000000 -0700
+++ perl/pad.c 2008-10-26 15:20:48.000000000 -0700
@@ -317,7 +317,7 @@
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;
End of Patch.
