Fix unescaped left brace warning in uni/parser.t.
authorCraig A. Berry <craigberry@mac.com>
Thu, 15 Nov 2012 17:12:25 +0000 (11:12 -0600)
committerCraig A. Berry <craigberry@mac.com>
Thu, 15 Nov 2012 17:12:25 +0000 (11:12 -0600)
Which was causing the test to fail (on VMS at least) with
"unexpected output at test 0".

t/uni/parser.t

index fb7b720..009ad35 100644 (file)
@@ -150,5 +150,5 @@ like( $@, qr/Bad name after Foo'/, 'Bad name after Foo\'' );
     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{}');
 }