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
commita774f6aed2039598d8bc160193f070e3d557cacc (patch)
treeca54c449bd8d8a0641f7d0587ca47a51bcb76e7e /cop.h
parent185e695852fb99562561242a31a940fd625c6b15 (diff)
downloadperl-a774f6aed2039598d8bc160193f070e3d557cacc.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"); \