Following error occurs in sending to email address that starts with "-"
(eg "-hirose31@example.com").
attached patch for Email::Sender::Transport::Sendmail.
| Subject: | sendmail.patch |
--- Sendmail.pm.orig 2010-02-16 02:58:23.000000000 +0900
+++ Sendmail.pm 2011-02-28 19:30:47.000000000 +0900
@@ -56,7 +56,7 @@
my ($first, @args) = $^O eq 'MSWin32'
? qq(| "$prog" -f $envelope->{from} @{$envelope->{to}})
- : (q{|-}, $prog, '-f', $envelope->{from}, @{$envelope->{to}});
+ : (q{|-}, $prog, '-f', $envelope->{from}, '--', @{$envelope->{to}});
no warnings 'exec'; ## no critic
my $pipe;