diff options
| author | fukachan <fukachan> | 2005-11-30 23:37:56 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2005-11-30 23:37:56 +0000 |
| commit | b0d8fa1ef5a4f05c83e92a312017e185bc8544f5 (patch) | |
| tree | 7157e8b3f3e37670ee68d8ee052ac922d21db265 /fml/lib/FML/Credential.pm | |
| parent | 289b813afe6bfd3ba1abb74fe7101dbb30eca192 (diff) | |
| download | fml8-b0d8fa1ef5a4f05c83e92a312017e185bc8544f5.tar.gz fml8-b0d8fa1ef5a4f05c83e92a312017e185bc8544f5.tar.bz2 fml8-b0d8fa1ef5a4f05c83e92a312017e185bc8544f5.zip | |
use $address_compare_function_domain_matching_level
Diffstat (limited to 'fml/lib/FML/Credential.pm')
| -rw-r--r-- | fml/lib/FML/Credential.pm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/fml/lib/FML/Credential.pm b/fml/lib/FML/Credential.pm index 4ad397c0..feb841c1 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.62 2004/07/23 15:59:00 fukachan Exp $ +# $FML: Credential.pm,v 1.63 2005/05/27 03:03:31 fukachan Exp $ # package FML::Credential; @@ -69,9 +69,12 @@ sub new my ($self, $curproc) = @_; my ($type) = ref($self) || $self; my $me = \%Credential; + my $config = $curproc->config(); + my $level = + $config->{ address_compare_function_domain_matching_level } || 3; # default comparison level - set_compare_level( $me, 3 ); + set_compare_level( $me, $level ); _reconfigure($me); |