X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=intrpvar.h;h=0c7659acefa447431797c9eff2381b8f91a102a1;hb=b6455c53c26be8a62e12a3f2a24a3a5086dd2c7b;hp=f572fddf28fdeeae095284b071eec8747b4405bb;hpb=edd11d75de0f04be0ff778f7a463c770919a787b;p=p5sagit%2Fp5-mst-13.2.git diff --git a/intrpvar.h b/intrpvar.h index f572fdd..0c7659a 100644 --- a/intrpvar.h +++ b/intrpvar.h @@ -162,7 +162,13 @@ PERLVAR(Iregdummy, regnode) /* from regcomp.c */ PERLVARI(Idumpindent, U16, 4) /* number of blanks per dump indentation level */ -/* Space for U16 here without increasing the structure size */ +PERLVARI(Iv_string_ok, bool, FALSE) /* use/require v_string OK */ + +/* This would be space for U8 here without increasing the structure size + so name the space, so that the first post 5.10 need for a bool can use this + rather than padding at the end. */ + +PERLVARI(Ispare_510, bool, FALSE) /* */ PERLVARA(Icolors,6, char *) /* from regcomp.c */ @@ -349,6 +355,10 @@ 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(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 + you stuff in into this array, as the point where it's injected is expecting + a single physical line. */ PERLVAR(Ipreambleav, AV *) PERLVAR(Imess_sv, SV *) PERLVAR(Iors_sv, SV *) /* output record separator $\ */ @@ -664,7 +674,7 @@ PERLVARI(Islabs, I32**, NULL) /* Array of slabs that have been allocated */ PERLVARI(Islab_count, U32, 0) /* Size of the array */ #endif -PERLVARI(Iisarev, HV*, NULL) /* Reverse map of @ISA dependencies */ +PERLVARI(Iisarev, HV*, NULL) /* Reverse map of @ISA dependencies */ /* If you are adding a U8 or U16, see the 'Space' comments above on where * there are gaps which currently will be structure padding. */