X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/ba05a734abc139486481541de5692c30c0ec39e4..96f3bfda2865c46f14fa6998dcf679f1aaf8dcdd:/intrpvar.h

diff --git a/intrpvar.h b/intrpvar.h
index c921112..ffcac08 100644
--- a/intrpvar.h
+++ b/intrpvar.h
@@ -296,8 +296,6 @@ PERLVAR(I, sawampersand, bool)		/* must save all match strings */
 PERLVAR(I, unsafe,	bool)
 PERLVAR(I, exit_flags,	U8)		/* was exit() unexpected, etc. */
 
-PERLVARI(I, reginterp_cnt, I32,	 0)	/* Whether "Regexp" was interpolated. */
-
 PERLVAR(I, inplace,	char *)
 PERLVAR(I, e_script,	SV *)
 
@@ -464,10 +462,10 @@ PERLVARI(I, in_clean_all, bool,    FALSE)	/* ptrs to freed SVs now legal */
 PERLVAR(I, nomemok,	bool)		/* let malloc context handle nomem */
 PERLVARI(I, savebegin,	bool,	FALSE)	/* save BEGINs for compiler	*/
 
-PERLVAR(I, uid,		Uid_t)		/* current real user id */
-PERLVAR(I, euid,	Uid_t)		/* current effective user id */
-PERLVAR(I, gid,		Gid_t)		/* current real group id */
-PERLVAR(I, egid,	Gid_t)		/* current effective group id */
+PERLVAR(I, delaymagic_uid,	Uid_t)	/* current real user id, only for delaymagic */
+PERLVAR(I, delaymagic_euid,	Uid_t)	/* current effective user id, only for delaymagic */
+PERLVAR(I, delaymagic_gid,	Gid_t)	/* current real group id, only for delaymagic */
+PERLVAR(I, delaymagic_egid,	Gid_t)	/* current effective group id, only for delaymagic */
 PERLVARI(I, an,		U32,	0)	/* malloc sequence number */
 
 #ifdef DEBUGGING
@@ -533,8 +531,6 @@ PERLVAR(I, debug,	VOL U32)	/* flags given to -D switch */
 /* Perl_Ibreakable_sub_generation_ptr was too long for VMS, hence "gen"  */
 PERLVARI(I, breakable_sub_gen, U32, 0)
 
-PERLVARI(I, amagic_generation, long, 0)
-
 #ifdef USE_LOCALE_COLLATE
 PERLVAR(I, collation_name, char *)	/* Name of current collation */
 PERLVAR(I, collxfrm_base, Size_t)	/* Basic overhead in *xfrm() */
@@ -565,7 +561,57 @@ PERLVAR(I, numeric_radix_sv, SV *)	/* The radix separator if not '.' */
 
 #endif /* !USE_LOCALE_NUMERIC */
 
-/* utf8 character classes */
+/* Unicode inversion lists */
+PERLVAR(I, ASCII,	SV *)
+PERLVAR(I, Latin1,	SV *)
+PERLVAR(I, AboveLatin1,	SV *)
+
+PERLVAR(I, PerlSpace,	SV *)
+PERLVAR(I, XPerlSpace,	SV *)
+
+PERLVAR(I, L1PosixAlnum,SV *)
+PERLVAR(I, PosixAlnum,	SV *)
+
+PERLVAR(I, L1PosixAlpha,SV *)
+PERLVAR(I, PosixAlpha,	SV *)
+
+PERLVAR(I, PosixBlank,	SV *)
+PERLVAR(I, XPosixBlank,	SV *)
+
+PERLVAR(I, L1Cased,	SV *)
+
+PERLVAR(I, PosixCntrl,	SV *)
+PERLVAR(I, XPosixCntrl,	SV *)
+
+PERLVAR(I, PosixDigit,	SV *)
+
+PERLVAR(I, L1PosixGraph,SV *)
+PERLVAR(I, PosixGraph,	SV *)
+
+PERLVAR(I, L1PosixLower,SV *)
+PERLVAR(I, PosixLower,	SV *)
+
+PERLVAR(I, L1PosixPrint,SV *)
+PERLVAR(I, PosixPrint,	SV *)
+
+PERLVAR(I, L1PosixPunct,SV *)
+PERLVAR(I, PosixPunct,	SV *)
+
+PERLVAR(I, PosixSpace,	SV *)
+PERLVAR(I, XPosixSpace,	SV *)
+
+PERLVAR(I, L1PosixUpper,SV *)
+PERLVAR(I, PosixUpper,	SV *)
+
+PERLVAR(I, L1PosixWord,	SV *)
+PERLVAR(I, PosixWord,	SV *)
+
+PERLVAR(I, PosixXDigit,	SV *)
+PERLVAR(I, XPosixXDigit, SV *)
+
+PERLVAR(I, VertSpace,   SV *)
+
+/* utf8 character class swashes */
 PERLVAR(I, utf8_alnum,	SV *)
 PERLVAR(I, utf8_alpha,	SV *)
 PERLVAR(I, utf8_space,	SV *)
@@ -591,6 +637,7 @@ PERLVAR(I, utf8_toupper, SV *)
 PERLVAR(I, utf8_totitle, SV *)
 PERLVAR(I, utf8_tolower, SV *)
 PERLVAR(I, utf8_tofold,	SV *)
+PERLVAR(I, utf8_quotemeta, SV *)
 PERLVAR(I, last_swash_hv, HV *)
 PERLVAR(I, last_swash_tmps, U8 *)
 PERLVAR(I, last_swash_slen, STRLEN)
@@ -641,6 +688,9 @@ PERLVAR(I, regex_padav,   AV *)		/* All regex objects, indexed via the
 					   Entry 0 is an SV whose PV is a
 					   "packed" list of IVs listing
 					   the now-free slots in the array */
+PERLVAR(I, stashpad,    HV **)		/* for CopSTASH */
+PERLVARI(I, stashpadmax, PADOFFSET, 64)
+PERLVARI(I, stashpadix, PADOFFSET, 0)
 #endif
 
 #ifdef USE_REENTRANT_API
@@ -751,11 +801,6 @@ PERLVAR(I, memory_debug_header, struct perl_memory_debug_header)
 PERLVARI(I, dumper_fd,	int,	-1)
 #endif
 
-/* Stores the PPID */
-#ifdef THREADS_HAVE_PIDS
-PERLVARI(I, ppid,	IV,	0)
-#endif
-
 #ifdef PERL_MAD
 PERLVARI(I, madskills,	bool,	FALSE)	/* preserve all syntactic info */
 					/* (MAD = Misc Attribute Decoration) */