From: Craig A. Berry <craigberry@mac.com>
Date: Thu, 15 Nov 2012 17:12:25 +0000 (-0600)
Subject: Fix unescaped left brace warning in uni/parser.t.
X-Git-Tag: v5.17.6~71
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/be1927028aa6b7a3eca7cee4722e33f90aa3a8c5

Fix unescaped left brace warning in uni/parser.t.

Which was causing the test to fail (on VMS at least) with
"unexpected output at test 0".
---

diff --git a/t/uni/parser.t b/t/uni/parser.t
index fb7b720..009ad35 100644
--- a/t/uni/parser.t
+++ b/t/uni/parser.t
@@ -150,5 +150,5 @@ like( $@, qr/Bad name after Ｆｏｏ'/, 'Bad name after Ｆｏｏ\'' );
     no warnings 'utf8';
     my $malformed_to_be = "\x{c0}\x{a0}";   # Overlong sequence
     CORE::evalbytes "use charnames ':full'; use utf8; my \$x = \"\\N{abc$malformed_to_be}\"";
-    like( $@, qr/Malformed UTF-8 character immediately after '\\N{abc' at .* within string/, 'Malformed UTF-8 input to \N{}');
+    like( $@, qr/Malformed UTF-8 character immediately after '\\N\{abc' at .* within string/, 'Malformed UTF-8 input to \N{}');
 }