| Subject: | MIME::Decoder::NBit changes only some \r\n to \n |
Code from MIME::Decoder::NBit
while ($in->read($_, $DecodeChunkLength)) {
$and_also = $in->getline;
$_ .= $and_also if defined($and_also);
### Just got a chunk ending in a line.
s/\015\012$/\n/g;
$out->print($_);
}
The line 's/\015\012$/\n/g;' changes only the last \r\n in the buffer to \n because the pattern is followed by a $, patch would be:
- s/\015\012$/\n/g;
+ s/\015\012/\n/g;