From: Gurusamy Sarathy <gsar@cpan.org>
Date: Mon, 29 Jun 1998 06:51:10 +0000 (+0000)
Subject: add missing SSCHECK() to rectify faulty SSPUSH*() logic in change#1259
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a9332b4ad63f5e28b9c5fd64a3ea35e9db2df408;p=p5sagit%2Fp5-mst-13.2.git

add missing SSCHECK() to rectify faulty SSPUSH*() logic in change#1259

p4raw-link: @1259 on //depot/perl: b3ac6de7f0c7a63b73f1cf3ea9e371470f7d1cb0

p4raw-id: //depot/perl@1261
---

diff --git a/scope.h b/scope.h
index 2bccd63..1f8fb44 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.