Fix bug in isSCRIPT_RUN with digit following unassigned

[perl5.git] / pp.h

diff --git a/pp.h b/pp.h
index e763b2e..55efa0b 100644 (file)
--- a/pp.h
+++ b/pp.h
@@ -351,7 +351,7 @@ Does not use C<TARG>.  See also C<L</XPUSHu>>, C<L</mPUSHu>> and C<L</PUSHu>>.
  * this just gives a safe false positive
  */
 
-#  define _EXTEND_NEEDS_GROW(p,n) ((n) < 0 || PL_stack_max - p < (n))
+#  define _EXTEND_NEEDS_GROW(p,n) ((n) < 0 || PL_stack_max - (p) < (n))
 
 
 /* EXTEND_SKIP(): used for where you would normally call EXTEND(), but