This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
uni/parser.t: Fix eval num in test
authorFather Chrysostomos <sprout@cpan.org>
Thu, 22 Mar 2012 05:34:13 +0000 (22:34 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Fri, 23 Mar 2012 03:23:53 +0000 (20:23 -0700)
t/uni/parser.t

index 5b1c37b..f142edb 100644 (file)
@@ -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";
 }