Change 34955 by [EMAIL PROTECTED] on 2008/11/30 19:18:33
This feels like a more robust location than that of change 34954.
Affected files ...
... //depot/perl/scope.c#236 edit
Differences ...
==== //depot/perl/scope.c#236 (text) ====
Index: perl/scope.c
--- perl/scope.c#235~34954~ 2008-11-30 09:17:37.000000000 -0800
+++ perl/scope.c 2008-11-30 11:18:33.000000000 -0800
@@ -698,11 +698,11 @@
register char* str;
I32 i;
- TAINT_NOT;
-
if (base < -1)
Perl_croak(aTHX_ "panic: corrupt saved stack index");
while (PL_savestack_ix > base) {
+ TAINT_NOT;
+
switch (SSPOPINT) {
case SAVEt_ITEM: /* normal string */
value = MUTABLE_SV(SSPOPPTR);
End of Patch.
