# This is not optimized in any way yet
sub charnames {
$name = shift;
- $txt = do "unicode/Name.pl" unless $txt;
+ $txt = do "unicore/Name.pl" unless $txt;
my @off;
if ($^H{charnames_full} and $txt =~ /\t\t$name$/m) {
@off = ($-[0], $+[0]);
$^H{charnames_short} = delete $h{':short'};
$^H{charnames_scripts} = [map uc, keys %h];
if (warnings::enabled('utf8') && @{$^H{charnames_scripts}}) {
- $txt = do "unicode/Name.pl" unless $txt;
+ $txt = do "unicore/Name.pl" unless $txt;
for (@{$^H{charnames_scripts}}) {
warnings::warn('utf8', "No such script: '$_'") unless
$txt =~ m/\t\t$_ (?:CAPITAL |SMALL )?LETTER /;
use charnames qw(cyrillic greek);
print "\N{sigma} is Greek sigma, and \N{be} is Cyrillic b.\n";
- use charnames ...; # either :full or :short will do
- print "This is Unicode code point \N{U+263A}\n"; # explicit code point
-
=head1 DESCRIPTION
Pragma C<use charnames> supports arguments C<:full>, C<:short> and