cleanup on commit "Pseudo-fork dups arg array on argless calls"

[perl5.git] / intrpvar.h

diff --git a/intrpvar.h b/intrpvar.h
index aa91951..a6ed644 100644 (file)
--- a/intrpvar.h
+++ b/intrpvar.h
@@ -76,6 +76,7 @@ PERLVAR(I, tainted,   bool)           /* using variables controlled by $< */
 PERLVAR(I, delaymagic, U16)            /* ($<,$>) = ... */
 PERLVAR(I, localizing, U8)             /* are we processing a local() list? */
 PERLVAR(I, in_eval,    U8)             /* trap "fatal" errors? */
+PERLVAR(I, defgv,      GV *)           /* the *_ glob */
 /*
 
 =for apidoc mn|bool|PL_dowarn
@@ -109,7 +110,7 @@ PERLVAR(I, mainstack,       AV *)           /* the stack when nothing funny is
 /* memory management */
 PERLVAR(I, sv_count,   IV)             /* how many SV* are currently allocated */
 PERLVAR(I, sv_objcount,        IV)             /* DEPRECATED AND UNMAINTAINED.
-                                         * Will be removed in Perl 5.20.
+                                         * Will be removed in Perl 5.22.
                                          * Used to be: how many objects are currently allocated. */
 
 PERLVAR(I, sv_root,    SV *)           /* storage for SVs belonging to interp */
@@ -173,6 +174,7 @@ PERLVAR(I, statgv,  GV *)
 PERLVARI(I, statname,  SV *,   NULL)
 
 #ifdef HAS_TIMES
+/* Will be removed soon after v5.21.1. See RT #121351 */
 PERLVAR(I, timesbuf,   struct tms)
 #endif
 
@@ -183,7 +185,7 @@ The input record separator - C<$/> in Perl space.
 
 =for apidoc mn|GV*|PL_last_in_gv
 
-The GV which was last used for a filehandle input operation. (C<< <FH> >>)
+The GV which was last used for a filehandle input operation.  (C<< <FH> >>)
 
 =for apidoc mn|GV*|PL_ofsgv
 
@@ -230,6 +232,7 @@ PERLVARI(I, dumpindent,     U16,    4)      /* number of blanks per dump
 PERLVAR(I, exit_flags, U8)             /* was exit() unexpected, etc. */
 
 PERLVAR(I, utf8locale, bool)           /* utf8 locale detected */
+PERLVAR(I, in_utf8_CTYPE_locale, bool)
 
 PERLVARA(I, colors,6,  char *)         /* values from PERL_RE_COLORS env var */
 
@@ -348,7 +351,6 @@ PERLVAR(I, psig_pend, int *)                /* per-signal "count" of pending */
 /* shortcuts to various I/O objects */
 PERLVAR(I, stdingv,    GV *)           /*  *STDIN      */
 PERLVAR(I, stderrgv,   GV *)           /*  *STDERR     */
-PERLVAR(I, defgv,      GV *)
 PERLVAR(I, argvgv,     GV *)           /*  *ARGV       */
 PERLVAR(I, argvoutgv,  GV *)           /*  *ARGVOUT    */
 PERLVAR(I, argvout_stack, AV *)
@@ -596,7 +598,6 @@ PERLVAR(I, utf8_charname_continue, SV *)
 
 PERLVARA(I, utf8_swash_ptrs, POSIX_SWASH_COUNT, SV *)
 PERLVARA(I, Posix_ptrs, POSIX_CC_COUNT, SV *)
-PERLVARA(I, L1Posix_ptrs, POSIX_CC_COUNT, SV *)
 PERLVARA(I, XPosix_ptrs, POSIX_CC_COUNT, SV *)
 
 PERLVAR(I, last_swash_hv, HV *)
@@ -735,7 +736,7 @@ PERLVAR(I, debug_pad,       struct perl_debug_pad)  /* always needed because of the re
 /* Hook for File::Glob */
 PERLVARI(I, globhook,  globhook_t, NULL)
 
-/* The last unconditional member of the interpreter structure when 5.19.8 was
+/* The last unconditional member of the interpreter structure when 5.21.1 was
    released. The offset of the end of this is baked into a global variable in 
    any shared perl library which will allow a sanity test in future perl
    releases.  */