add $

[chise/perl.git] / CHISE_REG.pm

diff --git a/CHISE_REG.pm b/CHISE_REG.pm
index ab97e8e..4a124a7 100644 (file)
--- a/CHISE_REG.pm
+++ b/CHISE_REG.pm
@@ -1,3 +1,8 @@
+#
+# CHISE_REG.pm
+# $Id: CHISE_REG.pm,v 1.2 2003-10-08 13:30:29 moro Exp $
+#
+
 package CHISE_REG;
 
 use strict;
@@ -35,8 +40,8 @@ if (-e '/usr/local/lib/chise/char-db') {
 } elsif (-e 'd:/work/chise/char-db'){
   $DB_HOME = 'd:/work/chise/char-db';
 } else {
-  print STDERR "CHISE.pm: No database found.\n";
-  print STDERR "CHISE.pm: Please set \$DB_HOME to CHISE.pm.\n";
+  print STDERR "CHISE_REG.pm: No database found.\n";
+  print STDERR "CHISE_REG.pm: Please set \$DB_HOME to CHISE.pm.\n";
   exit 1;
 }
 
@@ -58,7 +63,7 @@ sub chise_backref {
   #print STDERR "backreference: $backreference\n"; # for debug
   #print STDERR "feature name:  $feature_name\n";  # for debug
   my $result = `./chisereg.pl $backreference $DB_HOME $feature_name`;
-  print STDERR $result, "\n"; # for debug
+  #print STDERR $result, "\n"; # for debug
   return "[$result]";
 }