X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=perlvars.h;h=29c8b7319de30b59f626237b006fdbd9bb38bc48;hb=24caa93f50e1f4f416dac288b4fd89a65015bad9;hp=115ec5a8642d90f9e5d96cc8006584c2d4644ec7;hpb=36fa4a92fa2e187f9965ef5bcea070fe4a0025fd;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/perlvars.h b/perlvars.h
index 115ec5a..29c8b73 100644
--- a/perlvars.h
+++ b/perlvars.h
@@ -37,6 +37,9 @@ PERLVARI(Gthreadsv_names,char *,	THREADSV_NAMES)
 PERLVAR(Gcurthr,	struct perl_thread *)
 					/* Currently executing (fake) thread */
 #endif
+
+PERLVAR(Gcred_mutex,	perl_mutex)	/* altered credentials in effect */
+
 #endif /* USE_THREADS */
 
 PERLVAR(Gninterps,	int)		/* number of active interpreters */
@@ -50,7 +53,6 @@ PERLVAR(Gan,		U32)		/* malloc sequence number */
 PERLVAR(Gcop_seqmax,	U32)		/* statement sequence number */
 PERLVAR(Gop_seqmax,	U16)		/* op sequence number */
 PERLVAR(Gevalseq,	U32)		/* eval sequence number */
-PERLVAR(Gsub_generation,U32)		/* incr to invalidate method cache */
 PERLVAR(Gorigenviron,	char **)
 PERLVAR(Gorigalen,	U32)
 PERLVAR(Gpidstatus,	HV *)		/* pid-to-status mappings for waitpid */
@@ -171,6 +173,24 @@ PERLVARI(Gnumeric_local,	bool,	TRUE)
 
 #endif /* !USE_LOCALE_NUMERIC */
 
+/* utf8 character classes */
+PERLVAR(Gutf8_alnum,	SV *)
+PERLVAR(Gutf8_alpha,	SV *)
+PERLVAR(Gutf8_space,	SV *)
+PERLVAR(Gutf8_digit,	SV *)
+PERLVAR(Gutf8_upper,	SV *)
+PERLVAR(Gutf8_lower,	SV *)
+PERLVAR(Gutf8_print,	SV *)
+PERLVAR(Gutf8_mark,	SV *)
+PERLVAR(Gutf8_toupper,	SV *)
+PERLVAR(Gutf8_totitle,	SV *)
+PERLVAR(Gutf8_tolower,	SV *)
+PERLVAR(Glast_swash_hv,	HV *)
+PERLVAR(Glast_swash_klen,	U32)
+PERLVAR(Glast_swash_key[10],	U8)
+PERLVAR(Glast_swash_tmps,	U8 *)
+PERLVAR(Glast_swash_slen,	STRLEN)
+
 /* constants (these are not literals to facilitate pointer comparisons) */
 PERLVARIC(GYes,		char *, "1")
 PERLVARIC(GNo,		char *, "")
@@ -179,3 +199,12 @@ PERLVARIC(Gpatleave,	char *, "\\.^$@dDwWsSbB+*?|()-nrtfeaxc0123456789[{]}")
 
 PERLVAR(Gspecialsv_list[4],SV *)	/* from byterun.h */
 
+/* perly.c globals */
+PERLVAR(Gyydebug,	int)
+PERLVAR(Gyynerrs,	int)
+PERLVAR(Gyyerrflag,	int)
+PERLVAR(Gyychar,	int)
+PERLVAR(Gyyssp,		short*)
+PERLVAR(Gyyvsp,		YYSTYPE*)
+PERLVAR(Gyyval,		YYSTYPE)
+PERLVAR(Gyylval,	YYSTYPE)