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 (file)
--- 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/*"){