shithub: freetype+ttf2subf

Download patch

ref: 6dce136937ab8c436413ce617ffb5ddb329f3ecc
parent: 741f736662476403cbcac3b9bf0756134f53ce1b
author: Werner Lemberg <[email protected]>
date: Wed Feb 5 10:40:47 EST 2014 

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.

git/fs: mount .git/fs: mount/attach disallowed 
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+2014-02-05  Werner Lemberg  <[email protected]>
+
+	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  <[email protected]>
 
 	Fix compilation with MinGW.
--- a/src/tools/afblue.pl
+++ b/src/tools/afblue.pl
@@ -71,7 +71,7 @@
 
 # [<ws>] '"' <string> '"' [<ws>] '\n'  (<string> doesn't contain newlines)
 my $string_re = qr/ ^ \s*
-                       " ( (?: [^"\\]++ | \\. )*+ ) "
+                       " ( (?> (?: (?> [^"\\]+ ) | \\. )* ) ) "
                        \s* $ /x;
 
 # [<ws>] '{' <block> '}' [<ws>] '\n'  (<block> can contain newlines)