From: imiyazaki <imiyazaki>
Date: Sun, 2 Nov 2003 14:46:39 +0000 (+0000)
Subject: make %er_alias and $er_prefix_re global for &de_tex_er().
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=eb33c39307fbfe6989e8996848b3752303f89fd8;p=chise%2Fperl.git

make %er_alias and $er_prefix_re global for &de_tex_er().
---

diff --git a/Chise_utils/Chise_utils.pm b/Chise_utils/Chise_utils.pm
index 53b0713..d82f49b 100644
--- a/Chise_utils/Chise_utils.pm
+++ b/Chise_utils/Chise_utils.pm
@@ -10,6 +10,7 @@ use utf8;
 use BerkeleyDB;
 use vars qw(%db %chardb
 	    %reverse_db %reverse_chardb
+	    %er_alias $er_prefix_re
 	    $atr $idc
 	);
 
@@ -26,6 +27,7 @@ our %EXPORT_TAGS = ( 'all' => [ qw(
 				   %db %chardb
 				   %reverse_db %reverse_chardb
 				   $idc
+				   %er_alias $er_prefix_re
 				   &get_db
 				   &get_reverse_db
 				   &get_char_attribute
@@ -64,7 +66,7 @@ unless($DB_HOME){
 
 $idc="\x{2ff0}-\x{2fff}";
 
-my %er_alias =
+%er_alias =
     ('C1','=cns11643-1',
      'C2','=cns11643-2',
      'C3','=cns11643-3',
@@ -98,7 +100,7 @@ my %er_alias =
      'M','=daikanwa',
      );
 
-my $er_prefix_re=join '|', keys %er_alias;
+$er_prefix_re=join '|', keys %er_alias;
 
 if(-d "$DB_HOME/character"){
     for (glob "$DB_HOME/character/feature/*"){