Subject: | Broken PIPE: QUIT command in body data |
Date: | Wed, 16 May 2007 16:44:53 +0200 |
To: | bug-Net-Server-Mail [...] rt.cpan.org |
From: | Sebastiano Piccoli <sebastiano.piccoli [...] dada.net> |
Hi,
Net::Server::Mail version 0.15 doesn't treat correctly QUIT
termination command when pipeling is active.
When QUIT is sent without waiting server notification, we have found
QUIT string concatenated with body data.
We solved that issue by replacing:
($data = "$self->{last_chunk}$data") =~ s/(\r?\n)\.\r?\n/$1/s;
with:
$data = "$self->{last_chunk}$data";
($data = $`) =~ s/\r?\n\.\r?\n//mg;
in sub data_format().
Regards
Raffaello Torraco, Sebastiano Piccoli & Valerio Paolini