/* The 'I' prefix is only needed for vars that need appropriate #defines
* generated when built with or without MULTIPLICITY. It is also used
- * to generate the appropriate export list for win32.
+ * to generate the appropriate export list for win32. If the variable
+ * needs to be initialized, use PERLVARI.
*
* When building without MULTIPLICITY, these variables will be truly global.
*
PERLVAR(Igid, Gid_t) /* current real group id */
PERLVAR(Iegid, Gid_t) /* current effective group id */
PERLVARI(Ian, U32, 0) /* malloc sequence number */
-PERLVARI(Icop_seqmax, U32, 0) /* statement sequence number */
+
+#ifdef DEBUGGING
+ /* exercise wrap-around */
+ #define PERL_COP_SEQMAX (U32_MAX-50)
+#else
+ #define PERL_COP_SEQMAX 0
+#endif
+PERLVARI(Icop_seqmax, U32, PERL_COP_SEQMAX) /* statement sequence number */
+#undef PERL_COP_SEQMAX
+
PERLVARI(Ievalseq, U32, 0) /* eval sequence number */
PERLVAR(Iorigalen, U32)
PERLVAR(Iorigenviron, char **)
PERLVAR(Iutf8_idstart, SV *)
PERLVAR(Iutf8_idcont, SV *)
+PERLVAR(Iutf8_xidstart, SV *)
+PERLVAR(Iutf8_xidcont, SV *)
PERLVAR(Isort_RealCmp, SVCOMPARE_t)
/* List of characters that participate in folds (except marks, etc in
* multi-char folds) */
-PERLVAR(Iutf8_foldable, HV *)
+PERLVARI(Iutf8_foldable, HV *, NULL)
PERLVAR(Icustom_ops, HV *) /* custom op registrations */