$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) {
- if( $nkf =~ /-m/) {
+ if( $nkf =~ /-\S*m/) {
$ans =~ s/ //g;
}
last if ($result eq $ans) ;
# nkf PDS version passes Basic Conversion tests using "nkf -iB -oB "
#
-$nkf = "./nkf";
+$nkf = 'MSWin32' eq $^O ? ".\\nkf" : "./nkf";
# $nkf = "doscmd nkf.exe";
# If you want to see the testing process, set next flag.
while(<IN>) {
$result .= $_;
}
- if( $nkf =~ /-m/) {
+
+ if( $nkf =~ /-\S*m/) {
$result =~ s/ //g;
}
$i = 0;
foreach $ans (@ans) {
- if( $nkf =~ /-m/) {
+ if( $nkf =~ /-\S*m/) {
$ans =~ s/ //g;
}
if ($result eq $ans) {