Change 34497 by [EMAIL PROTECTED] on 2008/10/16 21:59:46
Fix an (apparent) logic bug for SAVEt_PADSV - whatever happens, the
POPs must balance the PUSHes.
Affected files ...
... //depot/maint-5.10/perl/scope.c#5 edit
Differences ...
==== //depot/maint-5.10/perl/scope.c#5 (text) ====
Index: perl/scope.c
--- perl/scope.c#4~34496~ 2008-10-16 14:21:51.000000000 -0700
+++ perl/scope.c 2008-10-16 14:59:46.000000000 -0700
@@ -993,8 +993,9 @@
if (ptr)
AvARRAY((PAD*)ptr)[off] = (SV*)SSPOPPTR;
else {
- /* Bug, surely? We need to balance the push with a pop here.
- */
+ /* Can we ever get here?
+ POPs must balance PUSHes. */
+ (void) SSPOPPTR;
}
}
break;
End of Patch.
