Change 34974 by [EMAIL PROTECTED] on 2008/12/01 22:57:16

        Integrate:
        [ 34962]
        Integrate:
        [ 34954]
        Proposed fix for -T -d:NYTProf regression. Probably this is a "missing"
        part of change 24943.
        
        [ 34955]
        This feels like a more robust location than that of change 34954.

Affected files ...

... //depot/maint-5.8/perl/scope.c#76 integrate

Differences ...

==== //depot/maint-5.8/perl/scope.c#76 (text) ====
Index: perl/scope.c
--- perl/scope.c#75~34633~      2008-10-29 01:22:26.000000000 -0700
+++ perl/scope.c        2008-12-01 14:57:16.000000000 -0800
@@ -618,6 +618,8 @@
     if (base < -1)
        Perl_croak(aTHX_ "panic: corrupt saved stack index");
     while (PL_savestack_ix > base) {
+       TAINT_NOT;
+
        const int type = SSPOPINT;
        switch (type) {
        case SAVEt_ITEM:                        /* normal string */
End of Patch.

Reply via email to