Change 34978 by [EMAIL PROTECTED] on 2008/12/02 14:23:08
Subject: [PATCH - 5.8.9] Fix build warning from Change 34974
From: "Jerry D. Hedden" <[EMAIL PROTECTED]>
Message-ID: <[EMAIL PROTECTED]>
Date: Tue, 2 Dec 2008 08:51:08 -0500
Affected files ...
... //depot/maint-5.8/perl/scope.c#77 edit
Differences ...
==== //depot/maint-5.8/perl/scope.c#77 (text) ====
Index: perl/scope.c
--- perl/scope.c#76~34974~ 2008-12-01 14:57:16.000000000 -0800
+++ perl/scope.c 2008-12-02 06:23:08.000000000 -0800
@@ -618,9 +618,10 @@
if (base < -1)
Perl_croak(aTHX_ "panic: corrupt saved stack index");
while (PL_savestack_ix > base) {
+ const int type = SSPOPINT;
+
TAINT_NOT;
- const int type = SSPOPINT;
switch (type) {
case SAVEt_ITEM: /* normal string */
value = (SV*)SSPOPPTR;
End of Patch.
