X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/d1bfb649a8c4cc0b39b0fd6371c009b71c0b497f..2df5bdd700b8a6ef036aa5be19d4bda9e3ca20bc:/pad.h

diff --git a/pad.h b/pad.h
index 8602eda..dec267a 100644
--- a/pad.h
+++ b/pad.h
@@ -31,6 +31,12 @@ typedef U64TYPE PADOFFSET;
 #endif
 #define NOT_IN_PAD ((PADOFFSET) -1)
 
+/* a value that PL_cop_seqmax is guaranteed never to be,
+ * flagging that a lexical is being introduced, or has not yet left scope
+ */
+#define PERL_PADSEQ_INTRO  U32_MAX
+
+
 /* B.xs needs these for the benefit of B::Deparse */
 /* Low range end is exclusive (valid from the cop seq after this one) */
 /* High range end is inclusive (valid up to this cop seq) */