This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove all the never used parameters from the macro validate_suid()
[perl5.git] / intrpvar.h
index 4025a7c..cc9e46e 100644 (file)
@@ -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) */