also binmode the Mbox output handle

wchristian · Mar 6, 2012 · 9690f3b · 9690f3b
1 parent 34778d1
commit 9690f3b
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/lib/Email/Sender/Transport/Mbox.pm b/lib/Email/Sender/Transport/Mbox.pm
@@ -64,6 +64,8 @@ sub _open_fh {
   my $fh = IO::File->new($file, '>>')
     or Carp::confess "couldn't open $file for appending: $!";
 
+  $fh->binmode(':raw');
+
   $class->_getlock($fh, $file);
 
   $fh->seek(0, 2);