Use chise_ds const value instead of concord const value.

diff --git a/tools/chiseperl.pl b/tools/chiseperl.pl
index 5b81911..cef353a 100755 (executable)
--- a/tools/chiseperl.pl
+++ b/tools/chiseperl.pl
@@ -15,7 +15,7 @@
 use chise;
 
 sub init_chise{
-  $chise_ds = chise::CHISE_DS_open($chise::CONCORD_Backend_Berkeley_DB,
+  $chise_ds = chise::CHISE_DS_open($chise::CHISE_DS_Berkeley_DB,
                                   $chise::chise_system_db_dir, 0, 0755);
   chise::listup_feature($chise_ds);
   @chise_feature = split(/\n/, chise::get_char($chise::feature));