From e0e08349319fc6d536bd29dfa41a38d67b6c98f8 Mon Sep 17 00:00:00 2001
From: Werner Lemberg <wl@gnu.org>
Date: Wed, 5 Feb 2014 16:02:41 +0100
Subject: [PATCH] Synchronize with FreeType.

This correponds to commits 741f736662476403cbcac3b9bf0756134f53ce1b
`Work-around for Perl bug #63402.' and
6dce136937ab8c436413ce617ffb5ddb329f3ecc `Fix problems with perl 5.8.8 as
distributed with current MinGW.'
---
 lib/afblue.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/afblue.pl b/lib/afblue.pl
index c98df34..58aa2a0 100644
--- a/lib/afblue.pl
+++ b/lib/afblue.pl
@@ -17,7 +17,7 @@
 use strict;
 use warnings;
 use English '-no_match_vars';
-use open ':std', ':locale';
+use open ':std', ':encoding(UTF-8)';
 
 
 my $prog = $PROGRAM_NAME;
@@ -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)
-- 
2.11.4.GIT