#3025 パッチに伴う修正

[nkf/nkf.git] / NKF.mod / test.pl

diff --git a/NKF.mod/test.pl b/NKF.mod/test.pl
index 48d2ce9..c03b534 100644 (file)
--- a/NKF.mod/test.pl
+++ b/NKF.mod/test.pl
@@ -43,12 +43,12 @@ sub library_test {
     $result = NKF::nkf(@nkf,$in);
     print "\nGOT:\n",$result if ($detail || $detail_all);
 
     $result = NKF::nkf(@nkf,$in);
     print "\nGOT:\n",$result if ($detail || $detail_all);
 

-    if( $nkf =~ /-m/) {
+    if( $nkf =~ /-\S*m/) {

         $result =~ s/ //g;
     }
     $i = 0;
     foreach $ans (@ans) {
         $result =~ s/ //g;
     }
     $i = 0;
     foreach $ans (@ans) {

-        if( $nkf =~ /-m/) {
+        if( $nkf =~ /-\S*m/) {

             $ans =~ s/ //g;
         }
         last if ($result eq $ans) ;
             $ans =~ s/ //g;
         }
         last if ($result eq $ans) ;