From 9fb51cbcb893b27e1b91f829c886d8749bf151e3 Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 17 Sep 2001 22:48:21 +0000
Subject: [PATCH] lib/unicode relic.

p4raw-id: //depot/perl@12062
---
 ext/Encode/compile | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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)
   {
-- 
2.7.4