perldelta for 317f3b6

[perl5.git] / intrpvar.h

diff --git a/intrpvar.h b/intrpvar.h
index 96125b6..3e9600f 100644 (file)
--- 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() */
@@ -570,9 +566,55 @@ 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_blank, SV *)
 PERLVAR(I, utf8_space, SV *)
 PERLVAR(I, utf8_graph, SV *)
 PERLVAR(I, utf8_digit, SV *)
@@ -596,6 +638,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)
@@ -646,6 +689,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
@@ -756,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) */