byterazor/qpsmtpd
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Allow buffered writes (from Joe Schaefer)

Browse Source 
git-svn-id: https://svn.perl.org/qpsmtpd/trunk@770 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Matt Sergeant 2007-08-15 13:46:10 +00:00
parent b06a395596
commit 3a8889ca27
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/Qpsmtpd/Postfix.pm
View File

@ -94,6 +94,8 @@ sub open_cleanup {
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;