save old PL_curcop value in parser struct

[perl5.git] / thrdvar.h

diff --git a/thrdvar.h b/thrdvar.h
index 4f49ef8..cbde17d 100644 (file)
--- a/thrdvar.h
+++ b/thrdvar.h
@@ -174,6 +174,8 @@ PERLVAR(Tregmatch_state,    regmatch_state *)
 
 PERLVARI(Tdumpindent,  U16, 4)         /* # of blanks per dump indentation level */
 
+PERLVARI(Tdelayedisa,  HV*, NULL)      /* stash for PL_delaymagic for magic_setisa */
+
 /* Put anything new that is pointer aligned here. */
 
 PERLVAR(Tdelaymagic,   U16)            /* ($<,$>) = ... */
@@ -183,6 +185,9 @@ PERLVARI(Tdirty,    bool, FALSE)    /* in the middle of tearing things down? */
 PERLVAR(Tin_eval,      VOL U8) /* trap "fatal" errors? */
 PERLVAR(Ttainted,      bool)           /* using variables controlled by $< */
 
-/* For historical reasons this file is followed by intrpvar.h in the interpeter
-   struct. As this file currently ends with 7 bytes of variables, intrpvar.h
-   starts with one single U8, to avoid structure padding space wastage.  */
+/* Put new things UP THERE ^^^  */
+
+/* For historical reasons this file is followed by intrpvar.h in the
+   interpreter struct. As this file currently ends with 7 bytes of variables,
+   intrpvar.h starts with one single U8, to avoid structure padding space
+   wastage.  */