diff -uNr waeijiro-fpw-1.0.orig/Makefile waeijiro-fpw-1.0/Makefile
--- waeijiro-fpw-1.0.orig/Makefile	Thu Sep 12 00:08:55 2002
+++ waeijiro-fpw-1.0/Makefile	Mon Mar 21 18:26:35 2005
@@ -1,4 +1,4 @@
-SRC_DICT=/home/tf/tmp/WAEIJI52.TXT
+SRC_DICT=PATH_WHERE/WAEIJI81.TXT
 INSTALLDIR=/home/dict
 DIR=WAEIJIRO
 
diff -uNr waeijiro-fpw-1.0.orig/waeijiro-fpw.pl waeijiro-fpw-1.0/waeijiro-fpw.pl
--- waeijiro-fpw-1.0.orig/waeijiro-fpw.pl	Fri Sep 13 00:48:56 2002
+++ waeijiro-fpw-1.0/waeijiro-fpw.pl	Mon Mar 21 12:08:04 2005
@@ -31,6 +31,11 @@
 	print jcode("見出し語が長すぎます($word)\n", 'utf8')->euc;
 	next;
     }
+    if( $word =~ /^\x16\xe8/ ){
+        next;
+    }
+
+
 
     if ($word =~ s/^!//) {
 	$title = jcode("$word [!]", 'utf8')->euc;
@@ -50,12 +55,12 @@
         || !$fpwtext->add_text($title)
         || !$fpwtext->add_keyword_end()
         || !$fpwtext->add_newline()) {
-        die $fpwtext->error_message() . "\n";
+        die $fpwtext->error_message() . $title. "\n";
      }
 
     ## 読み込んだ見出しを「見出し部」に書き込む。
     $fpwheading->add_text($title)
-        || die $fpwheading->error_message() . "\n";
+        || die $fpwheading->error_message() . $title. "<2>\n";
     
     ## 検索語を登録する。
     my @kw_array = &keyword($word);
@@ -64,15 +69,18 @@
 
     foreach my $kw (@kw_array) {
 	my $k = jcode($kw, 'utf8')->euc;
+        next unless($k);
+            print STDERR "'$k' $heading_position $text_position\n";
+
 	if (!$fpwword2->add_entry($k, $heading_position, $text_position)) {
-	    die $fpwword2->error_message() . "\n";
+	    die $fpwword2->error_message() . $title."<3>\n";
 	}
     }
     
     ## 本文を書き込む。
     if (!$fpwtext->add_text(jcode($desc, 'utf8')->euc)
         || !$fpwtext->add_newline()) {
-        die $fpwtext->error_message() . "\n";
+        die $fpwtext->error_message() . $title. "<4>\n";
     }
 }