Remove two warnings (sub diag() was redefined, and implict split is

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

diff --git a/intrpvar.h b/intrpvar.h
index 373d181..10d8c12 100644 (file)
--- a/intrpvar.h
+++ b/intrpvar.h
@@ -194,7 +194,8 @@ PERLVAR(Itainted,   bool)           /* using variables controlled by $< */
 
 /* This value may be set when embedding for full cleanup  */
 /* 0=none, 1=full, 2=full with checks */
-PERLVARI(Iperl_destruct_level, U8,     0)
+/* mod_perl is special, and also assigns a meaning -1 */
+PERLVARI(Iperl_destruct_level, signed char,    0)
 
 PERLVAR(Iperldb,       U32)
 
@@ -347,7 +348,7 @@ PERLVARI(Icurcopdb, COP *,  NULL)
 PERLVAR(Ifilemode,     int)            /* so nextargv() can preserve mode */
 PERLVAR(Ilastfd,       int)            /* what to preserve mode on */
 PERLVAR(Ioldname,      char *)         /* what to preserve mode on */
-PERLVAR(IArgv,         char **)        /* stuff to free from do_aexec, vfork safe */
+PERLVAR(IArgv,         const char **)  /* stuff to free from do_aexec, vfork safe */
 PERLVAR(ICmd,          char *)         /* stuff to free from do_aexec, vfork safe */
 /* Elements in this array have ';' appended and are injected as a single line
    into the tokeniser. You can't put any (literal) newlines into any program
@@ -617,8 +618,6 @@ PERLVARI(Ithreadhook,       thrhook_proc_t, MEMBER_TO_FPTR(Perl_nothreadhook))
 
 PERLVARI(Ihash_seed, UV, 0)            /* Hash initializer */
 
-PERLVAR(IDBassertion,   SV *)
-
 PERLVARI(Irehash_seed, UV, 0)          /* 582 hash initializer */
 
 PERLVARI(Iisarev, HV*, NULL) /* Reverse map of @ISA dependencies */