--- /home/rarul/src/namazu-2.0.19/pl/wakati.pl	2009-01-29 02:54:57.000000000 +0900
+++ wakati.pl	2009-08-11 03:19:19.000000000 +0900
@@ -68,6 +68,7 @@
 sub wakatize_japanese_sub ($) {
     my ($content) = @_;
     my $str = "";
+    my $str2= "";
     my @tmp = ();
 
     if ($conf::WAKATI =~ /^module_(\w+)/) {
@@ -93,13 +94,24 @@
 	    END {
 		$t->DESTROY() if defined $t;
 	    };
-            $str = $$content;
+# rarulize start
+	    if ($$content =~ /\x7f/) {
+		$str = substr $$content, 0, index($$content, "\x7f");
+	    } else {
+		$str = $$content;
+	    }
+	    $str2= $$content;
             $str =~ s/([\x80-\xff]+)/{my $s = $1; my $text = $t->parse($s); " $text ";}/ge;
+	    $str2 =~ s/([\x80-\xff]+)/{my $text = Text::Kakasi::do_kakasi($1); " $text ";}/ge;
+# rarulize end
 	} else {
 	    util::cdie(_("invalid wakati module: ")."$module\n");
 	}
         util::dprint(_("-- wakatized bare content --\n")."$str\n\n");
 	@tmp = split('\n', $str);
+# rarulize sub start
+	push (@tmp, split('\n', $str2));
+# rarulize sub end
     } else {
 	my $tmpfile = util::tmpnam("NMZ.wakati");
         util::dprint(_("wakati: using ")."$conf::WAKATI\n");