X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=intrpvar.h;h=8fe641c29c738695fe13fed3e849012c175a639f;hb=f9bcfeacc119e37fd70816a2cb4678fded53e8d1;hp=10cd6b7d3496cb04e84b216e506386cb65948ca8;hpb=d1eb31775715b0fcd7f36308da961c0698205d9f;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/intrpvar.h b/intrpvar.h
index 10cd6b7..8fe641c 100644
--- a/intrpvar.h
+++ b/intrpvar.h
@@ -43,6 +43,9 @@ PERLVAR(Istack_base,	SV **)
 PERLVAR(Istack_max,	SV **)
 
 PERLVAR(Iscopestack,	I32 *)		/* scopes we've ENTERed */
+/* name of the scopes we've ENTERed. Only used with -DDEBUGGING, but needs to be
+   present always, as -DDEUBGGING must be binary compatible with non.  */
+PERLVARI(Iscopestack_name, const char * *, NULL)
 PERLVAR(Iscopestack_ix,	I32)
 PERLVAR(Iscopestack_max,I32)
 
@@ -528,6 +531,16 @@ PERLVAR(Iutf8_print,	SV *)
 PERLVAR(Iutf8_punct,	SV *)
 PERLVAR(Iutf8_xdigit,	SV *)
 PERLVAR(Iutf8_mark,	SV *)
+PERLVAR(Iutf8_X_begin,	SV *)
+PERLVAR(Iutf8_X_extend,	SV *)
+PERLVAR(Iutf8_X_prepend,	SV *)
+PERLVAR(Iutf8_X_non_hangul,	SV *)
+PERLVAR(Iutf8_X_L,	SV *)
+PERLVAR(Iutf8_X_LV,	SV *)
+PERLVAR(Iutf8_X_LVT,	SV *)
+PERLVAR(Iutf8_X_T,	SV *)
+PERLVAR(Iutf8_X_V,	SV *)
+PERLVAR(Iutf8_X_LV_LVT_V,	SV *)
 PERLVAR(Iutf8_toupper,	SV *)
 PERLVAR(Iutf8_totitle,	SV *)
 PERLVAR(Iutf8_tolower,	SV *)