diff options
| author | Jerry D. Hedden <jdhedden@cpan.org> | 2008-12-02 03:51:08 -0500 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-12-02 14:23:08 +0000 |
| commit | 8372250bae79b2ca0c56503d7818ae0068b871f0 (patch) | |
| tree | 658edfeec7c912ebda685137c6cda6efa3ef95f3 | |
| parent | c1bdb4cbfdc12029a7c88c758c1764d065c89f33 (diff) | |
| download | perl-8372250bae79b2ca0c56503d7818ae0068b871f0.tar.gz | |
Fix build warning from Change 34974
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
| -rw-r--r-- | scope.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -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; |