Commit 6dce136937ab8c436413ce617ffb5ddb329f3ecc

Werner Lemberg 2014-02-05T15:40:47

Fix problems with perl 5.8.8 as distributed with current MinGW. * src/tools/afblue.pl: Work-around for Perl bug #63402. (string_re): Avoid `possessive quantifiers', which have been introduced in Perl version 5.10.

diff --git a/ChangeLog b/ChangeLog
index b02dd1b..f38a548 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+2014-02-05  Werner Lemberg  <wl@gnu.org>
+
+	Fix problems with perl 5.8.8 as distributed with current MinGW.
+
+	* src/tools/afblue.pl: Work-around for Perl bug #63402.
+	(string_re): Avoid `possessive quantifiers', which have been
+	introduced in Perl version 5.10.
+
 2014-02-04  Werner Lemberg  <wl@gnu.org>
 
 	Fix compilation with MinGW.
diff --git a/src/tools/afblue.pl b/src/tools/afblue.pl
index 33bba1e..58aa2a0 100644
--- a/src/tools/afblue.pl
+++ b/src/tools/afblue.pl
@@ -71,7 +71,7 @@ my $whitespace_only_re = qr/ ^ \s* $ /x;
 
 # [<ws>] '"' <string> '"' [<ws>] '\n'  (<string> doesn't contain newlines)
 my $string_re = qr/ ^ \s*
-                       " ( (?: [^"\\]++ | \\. )*+ ) "
+                       " ( (?> (?: (?> [^"\\]+ ) | \\. )* ) ) "
                        \s* $ /x;
 
 # [<ws>] '{' <block> '}' [<ws>] '\n'  (<block> can contain newlines)