Change 33078 by [EMAIL PROTECTED] on 2008/01/26 16:46:22
POPLOOP is actually doing all the work of Perl_save_padsv() already!
Affected files ...
... //depot/perl/scope.c#222 edit
Differences ...
==== //depot/perl/scope.c#222 (text) ====
Index: perl/scope.c
--- perl/scope.c#221~33070~ 2008-01-26 01:34:13.000000000 -0800
+++ perl/scope.c 2008-01-26 08:46:22.000000000 -0800
@@ -934,7 +934,7 @@
const PADOFFSET off = (PADOFFSET)SSPOPLONG;
ptr = SSPOPPTR;
if (ptr)
- AvARRAY((PAD*)ptr)[off] = (SV*)SSPOPPTR;
+ assert(AvARRAY((PAD*)ptr)[off] == (SV*)SSPOPPTR);
}
break;
case SAVEt_SAVESWITCHSTACK:
End of Patch.
