| Subject: | Module misidentifies a mbox-file as binary |
sub _IS_BINARY
{
my $data_length = CORE::length(${$_[0]});
my $bin_length = ${$_[0]} =~ tr/[\t\n\x20-\x7e]//c;
my $non_bin_length = $data_length - $bin_length;
return 0; # CHANGED HERE!
if (($non_bin_length / $data_length) > .70)
{
return 0;
}
else
{
return 1;
}
}
This test often returns TRUE to valid MBOX-Files. Perhaps because of a uncorrect ascii/binary-relation.
Greetings,
Tobias Schmitt.