search

nayakgi / perl-compiler

Automatically exported from code.google.com/p/perl-compiler
Other
0 stars 0 forks source link

unicode issue with charnames fuill and eval qq #331

Closed GoogleCodeExporter closed 9 years ago

GoogleCodeExporter commented 9 years ago 
What steps will reproduce the problem?

> perlcc -r -e 'use 5.010; use charnames ":full"; my $char = q/\N{LATIN CAPITAL 
LETTER A WITH MACRON}/; my $a = eval qq ["$char"]; print "ok\n" if length($a) 
== 1; print "$a\n"; print length($a)."\n" '
Illegal hexadecimal digit 'L' ignored.
Illegal hexadecimal digit 'P' ignored.
Illegal hexadecimal digit 'L' ignored.
Illegal hexadecimal digit 'W' ignored.
Illegal hexadecimal digit 'M' ignored.
Wide character in print at -e line 1.
ĀÊ

7

What is the expected output? What do you see instead?

> perl -e 'use 5.010; use charnames ":full"; my $char = q/\N{LATIN CAPITAL 
LETTER A WITH MACRON}/; my $a = eval qq ["$char"]; print "ok\n" if length($a) 
== 1; print "$a\n"; print length($a)."\n" '
ok
Ā
1

Please use labels and text to provide additional information.

Original issue reported on code.google.com by nicolas....@gmail.com on 9 May 2014 at 9:47

GoogleCodeExporter commented 9 years ago 
Fixed with rx-init0-i330

commit 59f33ec15085094113a43424a7ccba39cd6d4eed
Author: Reini Urban <rurban@cpanel.net>
Date:   Mon May 12 12:26:13 2014 -0500

    C 1.45_13: initialize init0 for fixup_ppaddr before init

Original comment by reini.urban on 12 May 2014 at 7:12