PERLVARI(Ierrors, SV *, NULL) /* outstanding queued errors */
/* statics "owned" by various functions */
-PERLVAR(Iav_fetch_sv, SV *) /* unused as of change #19268 */
-PERLVAR(Ihv_fetch_sv, SV *) /* unused as of change #19268 */
PERLVAR(Ihv_fetch_ent_mh, HE*) /* owned by hv_fetch_ent() */
-
PERLVAR(Ilastgotoprobe, OP*) /* from pp_ctl.c */
/* sort stuff */
PERLVAR(IDBsingle, SV *)
PERLVAR(IDBtrace, SV *)
PERLVAR(IDBsignal, SV *)
-PERLVAR(Ilineary, AV *) /* lines of script for debugger */
PERLVAR(Idbargs, AV *) /* args to call listed by caller function */
/* symbol tables */
PERLVAR(Iors_sv, SV *) /* output record separator $\ */
/* statics moved here for shared library purposes */
PERLVARI(Igensym, I32, 0) /* next symbol for getsym() to define */
-PERLVAR(Ierror_count, U8) /* how many errors so far, max 10 */
PERLVARI(Icv_has_eval, bool, FALSE) /* PL_compcv includes an entereval or similar */
PERLVARI(Ilaststype, U16, OP_STAT)
PERLVARI(Ilaststatval, int, -1)
PERLVARI(Irunops, runops_proc_t, MEMBER_TO_FPTR(RUNOPS_DEFAULT))
-PERLVARA(Itokenbuf,256, char)
-
/*
=for apidoc Amn|SV|PL_sv_undef
This is the C<undef> SV. Always refer to this as C<&PL_sv_undef>.
#ifdef PERL_UTF8_CACHE_ASSERT
-PERLVARI(Iutf8cache, I8, -1) /* Is the utf8 caching code enabled? */
+# define PERL___I -1
#else
-PERLVARI(Iutf8cache, I8, 1) /* Is the utf8 caching code enabled? */
+# define PERL___I -1
#endif
+PERLVARI(Iutf8cache, I8, PERL___I) /* Is the utf8 caching code enabled? */
+#undef PERL___I
+
#ifdef USE_LOCALE_NUMERIC
PERLVAR(Itaint_warn, bool) /* taint warns instead of dying */
PERLVAR(Iutf8locale, bool) /* utf8 locale detected */
-PERLVARI(Ihash_seed_set, bool, FALSE) /* Hash initialized? */
PERLVARI(Irehash_seed_set, bool, FALSE) /* 582 hash initialized? */
#ifdef USE_LOCALE_NUMERIC
PERLVARI(Ithreadhook, thrhook_proc_t, MEMBER_TO_FPTR(Perl_nothreadhook))
-/* Force inclusion of both runops options */
-PERLVARI(Irunops_std, runops_proc_t, MEMBER_TO_FPTR(Perl_runops_standard))
-PERLVARI(Irunops_dbg, runops_proc_t, MEMBER_TO_FPTR(Perl_runops_debug))
-
/* Stores the PPID */
#ifdef THREADS_HAVE_PIDS
PERLVARI(Ippid, IV, 0)
PERLVARI(Idumper_fd, int, -1)
#endif
-PERLVAR(Imulti_end, I32) /* last line of multi-line string */
-
#ifdef PERL_IMPLICIT_CONTEXT
PERLVARI(Imy_cxt_size, int, 0) /* size of PL_my_cxt_list */
PERLVARI(Imy_cxt_list, void **, NULL) /* per-module array of MY_CXT pointers */