Upgrade to Math::BigInt 1.44 from Tels and

[perl5.git] / lib / charnames.pm

diff --git a/lib/charnames.pm b/lib/charnames.pm
index 1bb89b4..787ecf9 100644 (file)
--- a/lib/charnames.pm
+++ b/lib/charnames.pm
@@ -11,7 +11,7 @@ my $txt;
 # 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]);
@@ -59,7 +59,7 @@ sub import {
   $^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 /;
@@ -86,9 +86,6 @@ charnames - define character names for C<\N{named}> string literal escape.
   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