diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-09-17 22:48:21 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-09-17 22:48:21 +0000 |
| commit | 9fb51cbcb893b27e1b91f829c886d8749bf151e3 (patch) | |
| tree | 9198f67a264472ed4abdbfe0a6243d093191fc4e | |
| parent | 879ba0104fb07e961b8e635622eec41853e55af5 (diff) | |
| download | perl-9fb51cbcb893b27e1b91f829c886d8749bf151e3.tar.gz | |
lib/unicode relic.
p4raw-id: //depot/perl@12062
| -rwxr-xr-x | ext/Encode/compile | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/ext/Encode/compile b/ext/Encode/compile index d0611f719f..ad64b6f177 100755 --- a/ext/Encode/compile +++ b/ext/Encode/compile @@ -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) { |