Index: misc/findnonsjis.pl
===================================================================
--- misc/findnonsjis.pl	(revision cdcfe9032184bd5475aecec372ffd9260cb10f81)
+++ misc/findnonsjis.pl	(revision 6f4fe5ee0a6f3874705227f25dcda010177e113b)
@@ -6,8 +6,10 @@
 use encoding 'utf-8';
 
-use Unicode::Japanese qw(unijp);
+use Encode;
 
 my $top = shift @ARGV || exit;
 if (! -d $top) { exit; }
+
+my $utf8 = find_encoding("utf8");
 
 checkdir($top);
@@ -16,5 +18,5 @@
     my $str = shift @_;
     
-    my $sjis = unijp($str)->sjis;
+    my $sjis = encode("cp932", $utf8->decode($str), Encode::FB_HTMLCREF);
     if ($sjis =~ /&#\d{4,};/) {
         return 1;