diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-08-09 14:49:00 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-08-09 14:49:00 +0000 |
| commit | 55d7b906b92a1aeb0d5030f2388e4f9daaf4425f (patch) | |
| tree | 575bbd8c0ca8258180bf53476c273a41610a7ba4 /lib/charnames.pm | |
| parent | 17baacb7566a50d23189ae645624597ecca41aab (diff) | |
| download | perl-55d7b906b92a1aeb0d5030f2388e4f9daaf4425f.tar.gz | |
Rename lib/unicode files to lib/unicore to avoid
conflicts between core lib/unicode and Unicode::
files in case-ignoring filesystems.
p4raw-id: //depot/perl@11623
Diffstat (limited to 'lib/charnames.pm')
| -rw-r--r-- | lib/charnames.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/charnames.pm b/lib/charnames.pm index 875c0a5a94..787ecf9b05 100644 --- 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 /; |