X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/01822b745cf22c5f129312061022b109fc43bf61..a2d8379b96447607acb2221e284e1f5436dd64d8:/intrpvar.h?ds=sidebyside diff --git a/intrpvar.h b/intrpvar.h index 3a8f959..a6ed644 100644 --- 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<< >>) +The GV which was last used for a filehandle input operation. (C<< >>) =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.5 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. */