This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
lib/unicode relic.
authorJarkko Hietaniemi <jhi@iki.fi>
Mon, 17 Sep 2001 22:48:21 +0000 (22:48 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Mon, 17 Sep 2001 22:48:21 +0000 (22:48 +0000)
p4raw-id: //depot/perl@12062

ext/Encode/compile

index d0611f7..ad64b6f 100755 (executable)
@@ -538,7 +538,8 @@ sub decode_U
 my @uname;
 sub char_names
 {
- my $s = do "unicode/Name.pl";
+ my $s = do "unicore/Name.pl";
+ die "char_names: unicore/Name.pl: $!\n" unless defined $s;
  pos($s) = 0;
  while ($s =~ /\G([0-9a-f]+)\t([0-9a-f]*)\t(.*?)\s*\n/igc)
   {