summaryrefslogtreecommitdiff
path: root/cop.h
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>1998-11-04 23:02:16 +0000
committerGurusamy Sarathy <gsar@cpan.org>1998-11-04 23:02:16 +0000
commitde616352556f5da70790ceef0ca8b92726d7761a (patch)
treeca54c449bd8d8a0641f7d0587ca47a51bcb76e7e /cop.h
parent8f1e745d9a1b9f298473c1ec14e5946d7ed2134f (diff)
downloadperl-de616352556f5da70790ceef0ca8b92726d7761a.tar.gz
refetch local stack pointer in POPSTACK
p4raw-id: //depot/perl@2191
Diffstat (limited to 'cop.h')
-rw-r--r--cop.h1
1 files changed, 1 insertions, 0 deletions
diff --git a/cop.h b/cop.h
index 69bc1ac610..d3f7194c2b 100644
--- a/cop.h
+++ b/cop.h
@@ -359,6 +359,7 @@ typedef struct stackinfo PERL_SI;
#define POPSTACK \
STMT_START { \
+ djSP; \
PERL_SI *prev = PL_curstackinfo->si_prev; \
if (!prev) { \
PerlIO_printf(PerlIO_stderr(), "panic: POPSTACK\n"); \