X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/d6376244c2261025775e8b11a6a64d7c9e0d1612..090f71652b598badef32b379c0f36c2c6e4a9542:/regcomp.h

diff --git a/regcomp.h b/regcomp.h
index bfd00dc..3aa5c1e 100644
--- a/regcomp.h
+++ b/regcomp.h
@@ -1,6 +1,7 @@
 /*    regcomp.h
  *
- *    Copyright (c) 1997-2002, Larry Wall
+ *    Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
+ *    2000, 2001, 2002, 2003, by Larry Wall and others
  *
  *    You may distribute under the terms of either the GNU General Public
  *    License or the Artistic License, as specified in the README file.
@@ -386,7 +387,8 @@ struct reg_data {
 struct reg_substr_datum {
     I32 min_offset;
     I32 max_offset;
-    SV *substr;
+    SV *substr;		/* non-utf8 variant */
+    SV *utf8_substr;	/* utf8 variant */
 };
 
 struct reg_substr_data {
@@ -394,10 +396,13 @@ struct reg_substr_data {
 };
 
 #define anchored_substr substrs->data[0].substr
+#define anchored_utf8 substrs->data[0].utf8_substr
 #define anchored_offset substrs->data[0].min_offset
 #define float_substr substrs->data[1].substr
+#define float_utf8 substrs->data[1].utf8_substr
 #define float_min_offset substrs->data[1].min_offset
 #define float_max_offset substrs->data[1].max_offset
 #define check_substr substrs->data[2].substr
+#define check_utf8 substrs->data[2].utf8_substr
 #define check_offset_min substrs->data[2].min_offset
 #define check_offset_max substrs->data[2].max_offset