| Subject: | Double-encoded UTF-8 in output |
non-ascii file names passed in UTF8 will be taken as Latin1 and encoded again in output.
This could be handled safely with the code:
use Encode; # encode decode
my $cfn = $j_fu->client_filename;
my $dcfn = "";
while( length $cfn )
{
$dcfn .= decode("UTF-8", $cfn, Encode::FB_QUIET);
$dcfn .= substr($cfn, 0, 1, "") if length $cfn;
}
$j_fu->client_filename($dcfn);
$j_fu->_generate_output;