diff options
| author | fukachan <fukachan> | 2001-10-10 14:56:59 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-10-10 14:56:59 +0000 |
| commit | adc7733120eff95f87f6dddb6ceab223fab00a6f (patch) | |
| tree | f0664fa531b78650fcfc9b75af6445c6807a1c18 | |
| parent | 808a113702ef174d4765da9226d7d2ec28b3cab3 (diff) | |
| download | fml8-adc7733120eff95f87f6dddb6ceab223fab00a6f.tar.gz fml8-adc7733120eff95f87f6dddb6ceab223fab00a6f.tar.bz2 fml8-adc7733120eff95f87f6dddb6ceab223fab00a6f.zip | |
is_member() accpepts $args->{ address }
| -rw-r--r-- | fml/lib/FML/Credential.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/fml/lib/FML/Credential.pm b/fml/lib/FML/Credential.pm index 28e7fd0d..ecc7d085 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.14 2001/10/08 15:47:28 fukachan Exp $ +# $FML: Credential.pm,v 1.15 2001/10/10 12:52:25 fukachan Exp $ # package FML::Credential; @@ -141,7 +141,7 @@ sub is_member my $status = 0; my $member_maps = $curproc->{ config }->{ member_maps }; - my $address = $curproc->{'credential'}->{'sender'}; + my $address = $args->{ address } || $curproc->{'credential'}->{'sender'}; my ($user, $domain) = (); if (defined $address) { |