diff options
| author | fukachan <fukachan> | 2003-04-15 01:52:18 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2003-04-15 01:52:18 +0000 |
| commit | 30a875cfa65f522a7d8012592bf51df9eef948ea (patch) | |
| tree | 6fe6d5896f1e9817f05fc343a967cfdeacc0f45c /fml/lib | |
| parent | a53987a5c36646e37dfef55d5f0ee619c8828773 (diff) | |
| download | fml8-30a875cfa65f522a7d8012592bf51df9eef948ea.tar.gz fml8-30a875cfa65f522a7d8012592bf51df9eef948ea.tar.bz2 fml8-30a875cfa65f522a7d8012592bf51df9eef948ea.zip | |
reset alarm after flock()
Diffstat (limited to 'fml/lib')
| -rw-r--r-- | fml/lib/Mail/Delivery/Queue.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/fml/lib/Mail/Delivery/Queue.pm b/fml/lib/Mail/Delivery/Queue.pm index 1dc13e9e..ee03bb8e 100644 --- a/fml/lib/Mail/Delivery/Queue.pm +++ b/fml/lib/Mail/Delivery/Queue.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: Queue.pm,v 1.23 2003/02/11 12:03:19 fukachan Exp $ +# $FML: Queue.pm,v 1.24 2003/03/17 08:58:51 fukachan Exp $ # package Mail::Delivery::Queue; @@ -315,6 +315,7 @@ sub lock flock($fh, &LOCK_EX); $self->{ _lock }->{ _fh } = $fh; }; + alarm(0); ($@ =~ /lock timeout/) ? 0 : 1; } |