diff options
| author | fukachan <fukachan> | 2002-01-13 15:46:52 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-01-13 15:46:52 +0000 |
| commit | adce1812dc06d743a8c4b357ea618bd94bc2476c (patch) | |
| tree | 807db733f8b2492240fd28ffb6549fd199554fbd | |
| parent | 4fc7f2150a42e9ee40c87a74a06d56360a7e2668 (diff) | |
| download | fml8-adce1812dc06d743a8c4b357ea618bd94bc2476c.tar.gz fml8-adce1812dc06d743a8c4b357ea618bd94bc2476c.tar.bz2 fml8-adce1812dc06d743a8c4b357ea618bd94bc2476c.zip | |
use Fcntl qw(:DEFAULT :flock), remove LOCK_XX() definitions.
| -rw-r--r-- | fml/lib/File/SimpleLock.pm | 9 | ||||
| -rw-r--r-- | fml/lib/Mail/Delivery/Queue.pm | 10 |
2 files changed, 5 insertions, 14 deletions
diff --git a/fml/lib/File/SimpleLock.pm b/fml/lib/File/SimpleLock.pm index 07952f43..4dbc1d04 100644 --- a/fml/lib/File/SimpleLock.pm +++ b/fml/lib/File/SimpleLock.pm @@ -2,7 +2,7 @@ # # Copyright (C) 2000,2001,2002 Ken'ichi Fukamachi # -# $FML: SimpleLock.pm,v 1.10 2002/01/13 05:57:41 fukachan Exp $ +# $FML: SimpleLock.pm,v 1.11 2002/01/13 06:59:50 fukachan Exp $ # package File::SimpleLock; @@ -43,12 +43,7 @@ unlock flock(2) for $args->{ file }; =cut -# constants -use POSIX qw(EAGAIN ENOENT EEXIST O_EXCL O_CREAT O_RDONLY O_WRONLY); -sub LOCK_SH {1;} -sub LOCK_EX {2;} -sub LOCK_NB {4;} -sub LOCK_UN {8;} +use Fcntl qw(:DEFAULT :flock); # Descriptions: standard constructor. diff --git a/fml/lib/Mail/Delivery/Queue.pm b/fml/lib/Mail/Delivery/Queue.pm index 6750bc0d..4ec6e47a 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.8 2002/01/13 07:01:28 fukachan Exp $ +# $FML: Queue.pm,v 1.9 2002/01/13 13:35:26 fukachan Exp $ # package Mail::Delivery::Queue; @@ -267,13 +267,9 @@ sub getidinfo =cut -use POSIX qw(EAGAIN ENOENT EEXIST O_EXCL O_CREAT O_RDONLY O_WRONLY); -use FileHandle; -sub LOCK_SH {1;} -sub LOCK_EX {2;} -sub LOCK_NB {4;} -sub LOCK_UN {8;} +use FileHandle; +use Fcntl qw(:DEFAULT :flock); # Descriptions: lock queue |