$decoder->decode($filename),
Encode::FB_HTMLCREF
);
- print ": $filename\n";
}
+ else {
+ print "utf8?";
+ $filename = encode(
+ $coding,
+ decode("utf8", $filename),
+ Encode::FB_HTMLCREF
+ );
+ }
+ print ": $filename\n";
my $suffix = 1;
my $savename = $filename;