diff options
| author | Craig A. Berry <craigberry@mac.com> | 2012-11-15 11:12:25 -0600 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2012-11-15 11:12:25 -0600 |
| commit | be1927028aa6b7a3eca7cee4722e33f90aa3a8c5 (patch) | |
| tree | ba3b9bb8624a5fff06e39c2e688f535b82e28a06 /t/uni | |
| parent | 09c759566a430d381e168ae0530363f206c90715 (diff) | |
| download | perl-be1927028aa6b7a3eca7cee4722e33f90aa3a8c5.tar.gz | |
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".
Diffstat (limited to 't/uni')
| -rw-r--r-- | t/uni/parser.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/uni/parser.t b/t/uni/parser.t index fb7b720d4c..009ad35738 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{}'); } |