X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=thrdvar.h;h=611a5a4b5b9b6eb9e430c7a271c4b7f75e00a057;hb=b9d6bf1307347f5c042490ec06edac847e8ada07;hp=d5bbeacaaf0fd0fd4032c68553e4d3ac38d15315;hpb=4d1ff10ffec86208b0da135b87c76b89e61c866e;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/thrdvar.h b/thrdvar.h
index d5bbeac..611a5a4 100644
--- a/thrdvar.h
+++ b/thrdvar.h
@@ -1,3 +1,16 @@
+/*    thdrvar.h
+ *
+ *    Copyright (c) 1997-2002, Larry Wall
+ *
+ *    You may distribute under the terms of either the GNU General Public
+ *    License or the Artistic License, as specified in the README file.
+ *
+ */
+
+/*
+=head1 Global Variables
+*/
+
 /***********************************************/
 /* Global only to current thread               */
 /***********************************************/
@@ -81,7 +94,7 @@ PERLVAR(Ttimesbuf,	struct tms)
 /* Fields used by magic variables such as $@, $/ and so on */
 PERLVAR(Ttainted,	bool)		/* using variables controlled by $< */
 PERLVAR(Tcurpm,		PMOP *)		/* what to do \ interps in REs from */
-PERLVAR(Tnrs,		SV *)
+PERLVAR(Tnrs,		SV *)		/* placeholder: unused since 5.8.0 (5.7.2 patch #12027 for bug ID 20010815.012) */
 
 /*
 =for apidoc mn|SV*|PL_rs
@@ -167,7 +180,7 @@ PERLVAR(Tregsawback,	I32)		/* Did we see \1, ...? */
 PERLVAR(Tregprecomp,	char *)		/* uncompiled string. */
 PERLVAR(Tregnpar,	I32)		/* () count. */
 PERLVAR(Tregsize,	I32)		/* Code size. */
-PERLVAR(Tregflags,	U16)		/* are we folding, multilining? */
+PERLVAR(Tregflags,	U32)		/* are we folding, multilining? */
 PERLVAR(Tregseen,	U32)		/* from regcomp.c */
 PERLVAR(Tseen_zerolen,	I32)		/* from regcomp.c */
 PERLVAR(Tseen_evals,	I32)		/* from regcomp.c */
@@ -259,5 +272,5 @@ PERLVAR(thr_done,	bool)		/* True when the thread has finished */
 
 #endif /* USE_5005THREADS */
 
-PERLVAR(Treg_sv_utf8,	bool)		/* was what we matched against utf8 */
+PERLVAR(Treg_match_utf8,	bool)		/* was what we matched against utf8 */