Fix build warning from Change 34974
authorJerry D. Hedden <jdhedden@cpan.org>
Tue, 2 Dec 2008 08:51:08 +0000 (03:51 -0500)
committerNicholas Clark <nick@ccl4.org>
Tue, 2 Dec 2008 14:23:08 +0000 (14:23 +0000)
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510812020551w5dcdbaa9tfcc483be2779653e@mail.gmail.com>
Date: Tue, 2 Dec 2008 08:51:08 -0500

p4raw-id: //depot/maint-5.8/perl@34978

scope.c

index 793a7cc..0e03066 100644 (file)
--- a/scope.c
+++ b/scope.c
@@ -618,9 +618,10 @@ Perl_leave_scope(pTHX_ I32 base)
     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;