our @EXPORT = qw(
);
-our $VERSION = '0.02';
+our $VERSION = '0.03';
# Preloaded methods go here.
my $DB_HOME="";
unless($DB_HOME){
- if(-e '/usr/local/share/chise/0.3/db'){
- $DB_HOME='/usr/local/share/chise/0.3/db';
- }elsif(-e '/usr/share/chise/0.3/db'){
- $DB_HOME='/usr/share/chise/0.3/db';
- }elsif(-e '/sw/share/chise/0.3/db'){
- $DB_HOME='/sw/share/chise/0.3/db';
+ if(-e '/usr/local/share/chise/1.0/db'){
+ $DB_HOME='/usr/local/share/chise/1.0/db';
+ }elsif(-e '/usr/share/chise/1.0/db'){
+ $DB_HOME='/usr/share/chise/1.0/db';
+ }elsif(-e '/sw/share/chise/1.0/db'){
+ $DB_HOME='/sw/share/chise/1.0/db';
}elsif(-e '/usr/local/lib/chise/chise-db'){
$DB_HOME='/usr/local/lib/chise/chise-db';
}elsif(-e '/usr/lib/chise/chise-db'){
$atr=~s!$DB_HOME/character/feature/!!;
$db{$atr}=$_;
}
- for (glob "$DB_HOME/character/by_feature/*"){
+ for (glob "$DB_HOME/character/index/*"){
next if(/\.txt$/);
$atr=$_;
- $atr=~s!$DB_HOME/character/by_feature/!!;
+ $atr=~s!$DB_HOME/character/index/!!;
$reverse_db{$atr}=$_;
}
}elsif(-d "$DB_HOME/system-char-id"){