diff options
| author | fukachan <fukachan> | 2003-03-18 10:37:01 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2003-03-18 10:37:01 +0000 |
| commit | 2055bcc5a6b3b0e5557a1b8afb6aeb57ecb53eed (patch) | |
| tree | 2e91ca39bbc8166e4f29a27be21b13cb3899e751 /fml | |
| parent | bbb2c3509024ca305925cf61bdcc69fe8dc2a702 (diff) | |
| download | fml8-2055bcc5a6b3b0e5557a1b8afb6aeb57ecb53eed.tar.gz fml8-2055bcc5a6b3b0e5557a1b8afb6aeb57ecb53eed.tar.bz2 fml8-2055bcc5a6b3b0e5557a1b8afb6aeb57ecb53eed.zip | |
clean up.
add comments on lock.
Diffstat (limited to 'fml')
| -rw-r--r-- | fml/lib/FML/Credential.pm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/fml/lib/FML/Credential.pm b/fml/lib/FML/Credential.pm index cce7a019..0d47391e 100644 --- a/fml/lib/FML/Credential.pm +++ b/fml/lib/FML/Credential.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: Credential.pm,v 1.43 2003/02/01 13:50:59 fukachan Exp $ +# $FML: Credential.pm,v 1.44 2003/02/09 12:31:40 fukachan Exp $ # package FML::Credential; @@ -298,8 +298,6 @@ sub _is_member return $status; } - use IO::Adapter; - MAP: for my $map (@$member_maps) { if (defined $map) { @@ -322,6 +320,7 @@ sub has_address_in_map my ($self, $map, $config, $address) = @_; my ($user, $domain) = split(/\@/, $address); my $status = 0; + my $curproc = $self->{ _curproc }; # reset the matched result; $self->_save_address(''); @@ -334,7 +333,10 @@ sub has_address_in_map if ($debug) { print STDERR "find( $user , { want => 'key', all => 1 });\n"; } + + # $curproc->lock($lock_channel); # READER LOCK my $addrs = $obj->find( $user , { want => 'key', all => 1 }); + # $curproc->unlock($lock_channel); # READER LOCK if (ref($addrs) && $debug) { print STDERR "cred: match? [ @$addrs ]\n"; |