diff options
| author | fukachan <fukachan> | 2001-10-13 03:03:43 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-10-13 03:03:43 +0000 |
| commit | cdfdb11996f4f4f3952a9f9515022eb221484c09 (patch) | |
| tree | 0bc2bbb59a27a82fdc0aa7e1453bf9b226913163 | |
| parent | dda97a9402222a36dfa9a3899ede5efcbc004f98 (diff) | |
| download | fml8-cdfdb11996f4f4f3952a9f9515022eb221484c09.tar.gz fml8-cdfdb11996f4f4f3952a9f9515022eb221484c09.tar.bz2 fml8-cdfdb11996f4f4f3952a9f9515022eb221484c09.zip | |
bug fix variable name
| -rw-r--r-- | fml/lib/FML/Credential.pm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/fml/lib/FML/Credential.pm b/fml/lib/FML/Credential.pm index ecc7d085..b74bb053 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.15 2001/10/10 12:52:25 fukachan Exp $ +# $FML: Credential.pm,v 1.16 2001/10/10 14:56:59 fukachan Exp $ # package FML::Credential; @@ -96,10 +96,11 @@ are same since the last 3 top level domains are same. sub is_same_address { - my ($self, $xaddr, $yaddr, $level) = @_; + my ($self, $xaddr, $yaddr, $max_level) = @_; my ($xuser, $xdomain) = split(/\@/, $xaddr); my ($yuser, $ydomain) = split(/\@/, $yaddr); - my $max_level = $self->{ _max_level } || 3; + my $level = 0; + $max_level = $max_level || $self->{ _max_level } || 3; # rule 1 if ($xuser ne $yuser) { return 0;} |