Change 12062 by jhi@alpha on 2001/09/17 22:48:21
lib/unicode relic.
Affected files ...
... //depot/perl/ext/Encode/compile#15 edit
Differences ...
==== //depot/perl/ext/Encode/compile#15 (xtext) ====
Index: perl/ext/Encode/compile
--- perl/ext/Encode/compile.~1~ Mon Sep 17 17:00:06 2001
+++ perl/ext/Encode/compile Mon Sep 17 17:00:06 2001
@@ -538,7 +538,8 @@
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)
{
End of Patch.
