[svn:qpsmtpd] r770 - trunk/lib/Qpsmtpd

[msergeant]

Author: msergeant
Date: Wed Aug 15 06:46:10 2007
New Revision: 770

Modified:
   trunk/lib/Qpsmtpd/Postfix.pm

Log:
Allow buffered writes (from Joe Schaefer)


Modified: trunk/lib/Qpsmtpd/Postfix.pm
==============================================================================
--- trunk/lib/Qpsmtpd/Postfix.pm        (original)
+++ trunk/lib/Qpsmtpd/Postfix.pm        Wed Aug 15 06:46:10 2007
@@ -94,6 +94,8 @@
   my $self = IO::Socket::UNIX->new(Type => SOCK_STREAM,
                                   Peer => "/var/spool/postfix/public/cleanup");
   die qq[Couldn't open unix socket "/var/spool/postfix/public/cleanup": $!] 
unless ref $self;
+  # allow buffered writes
+  $self->autoflush(0);
   bless ($self, $class);
   $self->init();
   return $self;