diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-03-21 22:34:13 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-03-22 20:23:53 -0700 |
| commit | 08454bd8a4cf1faf0c407c322e5e8dff7c80478e (patch) | |
| tree | 30e74d6a1124460b3b12412a63e9415b7e33f7e3 /t | |
| parent | 4c01a014641ade309fdf32a66b1e9939f10566ac (diff) | |
| download | perl-08454bd8a4cf1faf0c407c322e5e8dff7c80478e.tar.gz | |
uni/parser.t: Fix eval num in test
Diffstat (limited to 't')
| -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 5b1c37be3d..f142edb609 100644 --- a/t/uni/parser.t +++ b/t/uni/parser.t @@ -105,6 +105,6 @@ is ${"main::\345\225\217"}, undef, "..and using the encoded form doesn't"; use charnames qw( :full ); eval qq! my \$\x{30cb} \N{DROMEDARY CAMEL} !; - is $@, 'Unrecognized character \x{1f42a}; marked by <-- HERE after my $ニ <-- HERE near column 8 at (eval 13) line 1. + is $@, 'Unrecognized character \x{1f42a}; marked by <-- HERE after my $ニ <-- HERE near column 8 at (eval 11) line 1. ', "'Unrecognized character' croak is UTF-8 clean"; } |