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 (file)
--- 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.