projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
13d4578
)
This feels like a more robust location than that of change 34954.
author
Nicholas Clark
<nick@ccl4.org>
Sun, 30 Nov 2008 19:18:33 +0000
(19:18 +0000)
committer
Nicholas Clark
<nick@ccl4.org>
Sun, 30 Nov 2008 19:18:33 +0000
(19:18 +0000)
p4raw-id: //depot/perl@34955
scope.c
patch
|
blob
|
history
diff --git
a/scope.c
b/scope.c
index
c0a8ba7
..
88fb53a
100644
(file)
--- a/
scope.c
+++ b/
scope.c
@@
-698,11
+698,11
@@
Perl_leave_scope(pTHX_ I32 base)
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);