| Subject: | Unknown encoding '...' - unable to send file by MailFile or Part |
died with error:
Unknown encoding '::MerchantSales' at
/opt/perl-5.14.2/lib/site_perl/5.14.2/Mail/Sender.pm line 96.
I think that condition on line 2146 is wrong (!~ instead of =~).
I attached patch.
| Subject: | MailSender.patch |
--- /opt/perl/lib/site_perl/5.14.2/Mail/Sender.pm 2012-05-27 21:56:00.000000000 +0000
+++ perllib/Mail/Sender.pm 2012-06-28 13:52:58.000000000 +0000
@@ -2143,7 +2143,7 @@
$self->{'encoding'} = $encoding;
if (defined $charset and $charset and $ctype !~ /charset=/i) {
$ctype .= qq{; charset="$charset"}
- } elsif (!defined $charset and $ctype !~ /charset="([^"]+)"/) {
+ } elsif (!defined $charset and $ctype =~ /charset="([^"]+)"/) {
$charset = $1;
}