summaryrefslogtreecommitdiff
path: root/scope.h
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>1998-06-29 06:51:10 +0000
committerGurusamy Sarathy <gsar@cpan.org>1998-06-29 06:51:10 +0000
commita9332b4ad63f5e28b9c5fd64a3ea35e9db2df408 (patch)
treee26d7a20edfeb845c0c8babc3a591cfab314e8b3 /scope.h
parent5f701bad73477158c95e4f7277c944c3cf503d0d (diff)
downloadperl-a9332b4ad63f5e28b9c5fd64a3ea35e9db2df408.tar.gz
add missing SSCHECK() to rectify faulty SSPUSH*() logic in change#1259
p4raw-link: @1259 on //depot/perl: b3ac6de7f0c7a63b73f1cf3ea9e371470f7d1cb0 p4raw-id: //depot/perl@1261
Diffstat (limited to 'scope.h')
-rw-r--r--scope.h2
1 files changed, 2 insertions, 0 deletions
diff --git a/scope.h b/scope.h
index 2bccd63d59..1f8fb44a81 100644
--- a/scope.h
+++ b/scope.h
@@ -99,10 +99,12 @@
if (hints & HINT_LOCALIZE_HH) \
save_hints(); \
else { \
+ SSCHECK(2); \
SSPUSHINT(hints); \
SSPUSHINT(SAVEt_NOHINTS); \
} \
} STMT_END
+
/* A jmpenv packages the state required to perform a proper non-local jump.
* Note that there is a start_env initialized when perl starts, and top_env
* points to this initially, so top_env should always be non-null.