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

make the alarm{timeout} thing slightly more efficient...

Browse Source 
git-svn-id: https://svn.perl.org/qpsmtpd/branches/v010@41 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Ask Bjørn Hansen 2002-08-06 12:57:02 +00:00
parent 75e0f9e568
commit 245bdd1acf
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/Qpsmtpd.pm
View File

@ -305,6 +305,8 @@ sub data {
my $header = Mail::Header->new(Modify => 0, MailFrom => "COERCE");
my $timeout = $self->config('timeout');
while (<STDIN>) {
$complete++, last if $_ eq ".\r\n";
$i++;
@ -341,7 +343,7 @@ sub data {
}
$self->log(5, "size is at $size\n") unless ($i % 300);
alarm $self->config('timeout');
alarm $timeout;
}
$self->log(6, "max_size: $max_size / size: $size");