if ($boundary) {
#
- # Eat the MIME eplilog
+ # Eat the MIME epilog
#
eat_part(\*STDIN);
}
# quote character
#
- if ($encoding eq '7bit' || $encoding ne '8bit') {
+ if ($encoding eq '7bit' || $encoding eq '8bit') {
while (<$input>) {
$ret = match_boundary($_, $boundary);
if (defined $ret) {
pipe($foutread, $foutwrite) || die "pipe() (second) failed: $!\n";
binmode($finread, ":encoding($outcharset)");
- binmode($finread, ":encoding($outcharset)");
+ binmode($finwrite, ":encoding($outcharset)");
binmode($foutread, ":encoding($outcharset)");
binmode($foutwrite, ":encoding($outcharset)");