Better diagnostics and test naming

[p5sagit/p5-mst-13.2.git] / intrpvar.h

diff --git a/intrpvar.h b/intrpvar.h
index 0f72441..f86b5fc 100644 (file)
--- a/intrpvar.h
+++ b/intrpvar.h
@@ -180,8 +180,6 @@ PERLVAR(Iwatchok,   char *)
 PERLVARI(Iregmatch_slab, regmatch_slab *,      NULL)
 PERLVAR(Iregmatch_state, regmatch_state *)
 
-PERLVARI(Idelayedisa,  HV*,    NULL)   /* stash for PL_delaymagic for magic_setisa */
-
 /* Put anything new that is pointer aligned here. */
 
 PERLVAR(Idelaymagic,   U16)            /* ($<,$>) = ... */
@@ -307,7 +305,6 @@ PERLVAR(IDBsub,             GV *)
 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 */
@@ -479,7 +476,7 @@ PERLVARI(Icollation_standard, bool, TRUE)
 #ifdef PERL_UTF8_CACHE_ASSERT
 #  define PERL___I -1
 #else
-#  define PERL___I -1
+#  define PERL___I 1
 #endif
 PERLVARI(Iutf8cache, I8, PERL___I)     /* Is the utf8 caching code enabled? */
 #undef PERL___I
@@ -556,7 +553,6 @@ PERLVARI(Isig_pending, int,0)           /* Number if highest signal pending */
 
 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
@@ -634,10 +630,6 @@ PERLVARI(Iunlockhook,      share_proc_t,   MEMBER_TO_FPTR(PERL_UNLOCK_HOOK))
 
 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)