Net::IMAP::InterIMAP: set binmode on the socket (and our pipe ends)

1 files changed, 1 insertions, 0 deletions

diff --git a/pullimap b/pullimap
index c8d4018..8eb2ac0 100755
--- a/pullimap
+++ b/pullimap
@@ -142,6 +142,7 @@ sub sendmail($$) {
             next if $! == EINTR; # try again if connect(2) was interrupted by a signal
             die "connect: $!";
         }
+        binmode($SMTP) // die "binmode: $!";
 
         smtp_resp('220');
         my @r = smtp_send($ehlo => '250');