Update File::Fetch to 0.16

[perl5.git] / intrpvar.h

diff --git a/intrpvar.h b/intrpvar.h
index 7799812..4a62779 100644 (file)
--- a/intrpvar.h
+++ b/intrpvar.h
@@ -124,7 +124,7 @@ PERLVAR(Idefstash,  HV *)           /* main symbol table */
 PERLVAR(Icurstash,     HV *)           /* symbol table for current package */
 
 PERLVAR(Irestartop,    OP *)           /* propagating an error from croak? */
-PERLVAR(Icurcop,       COP * VOL)
+PERLVAR(Icurcop,       COP *)
 PERLVAR(Icurstack,     AV *)           /* THE STACK */
 PERLVAR(Icurstackinfo, PERL_SI *)      /* current stack + context */
 PERLVAR(Imainstack,    AV *)           /* the stack when nothing funny is
@@ -189,7 +189,7 @@ PERLVAR(Ilocalizing,        U8)             /* are we processing a local() list? */
 PERLVAR(Icolorset,     bool)           /* from regcomp.c */
 PERLVARI(Idirty,       bool, FALSE)    /* in the middle of tearing things
                                           down? */
-PERLVAR(Iin_eval,      VOL U8)         /* trap "fatal" errors? */
+PERLVAR(Iin_eval,      U8)             /* trap "fatal" errors? */
 PERLVAR(Itainted,      bool)           /* using variables controlled by $< */
 
 /* This value may be set when embedding for full cleanup  */
@@ -215,14 +215,12 @@ PERLVAR(Ilocalpatches,    const char * const *)
 PERLVARI(Isplitstr,    const char *, " ")
 
 PERLVAR(Iminus_c,      bool)
-PERLVAR(Ipreprocess,   bool)
 PERLVAR(Iminus_n,      bool)
 PERLVAR(Iminus_p,      bool)
 PERLVAR(Iminus_l,      bool)
 PERLVAR(Iminus_a,      bool)
 PERLVAR(Iminus_F,      bool)
 PERLVAR(Idoswitches,   bool)
-
 PERLVAR(Iminus_E,      bool)
 
 /*
@@ -242,6 +240,7 @@ PERLVAR(Iexit_flags,        U8)             /* was exit() unexpected, etc. */
 PERLVAR(Isrand_called, bool)
 /* Part of internal state, but makes the 16th 1 byte variable in a row.  */
 PERLVAR(Itainting,     bool)           /* doing taint checks */
+/* Space for a U8 */
 PERLVAR(Iinplace,      char *)
 PERLVAR(Ie_script,     SV *)
 
@@ -348,7 +347,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
@@ -561,9 +560,13 @@ PERLVAR(Inumeric_radix_sv, SV *)   /* The radix separator if not '.' */
 #endif
 
 #if defined(USE_ITHREADS)
-PERLVAR(Iregex_pad,     SV**)          /* All regex objects */
-PERLVAR(Iregex_padav,   AV*)           /* All regex objects */
-
+PERLVAR(Iregex_pad,     SV**)          /* Shortcut into the array of
+                                          regex_padav */
+PERLVAR(Iregex_padav,   AV*)           /* All regex objects, indexed via the
+                                          values in op_pmoffset of pmop.
+                                          Entry 0 is an SV whose PV is a
+                                          "packed" list of IVs listing
+                                          the now-free slots in the array */
 #endif
 
 #ifdef USE_REENTRANT_API