Change 34954 by [EMAIL PROTECTED] on 2008/11/30 17:17:37
Proposed fix for -T -d:NYTProf regression. Probably this is a "missing"
part of change 24943.
Affected files ...
... //depot/perl/scope.c#235 edit
Differences ...
==== //depot/perl/scope.c#235 (text) ====
Index: perl/scope.c
--- perl/scope.c#234~34829~ 2008-11-12 21:47:34.000000000 -0800
+++ perl/scope.c 2008-11-30 09:17:37.000000000 -0800
@@ -698,6 +698,8 @@
register char* str;
I32 i;
+ TAINT_NOT;
+
if (base < -1)
Perl_croak(aTHX_ "panic: corrupt saved stack index");
while (PL_savestack_ix > base) {
End of Patch.
