From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 17 Sep 2001 22:48:21 +0000 (+0000)
Subject: lib/unicode relic.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9fb51cbcb893b27e1b91f829c886d8749bf151e3;p=p5sagit%2Fp5-mst-13.2.git

lib/unicode relic.

p4raw-id: //depot/perl@12062
---

diff --git a/ext/Encode/compile b/ext/Encode/compile
index d0611f7..ad64b6f 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)
   {