X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/dab0c3e7e357a28081ca24560f20e83c1d47ce1f..b24bc0958ea575493f4672819334c2b884f1e90d:/intrpvar.h

diff --git a/intrpvar.h b/intrpvar.h
index 4025a7c..cc9e46e 100644
--- a/intrpvar.h
+++ b/intrpvar.h
@@ -464,10 +464,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
@@ -592,8 +592,6 @@ PERLVAR(I, PosixDigit,	SV *)
 PERLVAR(I, L1PosixGraph,SV *)
 PERLVAR(I, PosixGraph,	SV *)
 
-PERLVAR(I, HorizSpace,  SV *)
-
 PERLVAR(I, L1PosixLower,SV *)
 PERLVAR(I, PosixLower,	SV *)
 
@@ -643,6 +641,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)
@@ -803,11 +802,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) */