From f86fffb192578aec3d2eb303130d2764f2fa6bf7 Mon Sep 17 00:00:00 2001
From: fukachan <fukachan>
Date: Mon, 17 Nov 2003 15:38:16 +0000
Subject: implement is_user_part_case_sensitive() and modified to use it. XXX
 we should attach $self internal directly even if within the same module.

---
 fml/lib/FML/Credential.pm | 15 +++++++++++++--
 1 file changed, 13 insertions(+), 2 deletions(-)

diff --git a/fml/lib/FML/Credential.pm b/fml/lib/FML/Credential.pm
index b7e3c12e..568a87c6 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.46 2003/08/23 04:35:27 fukachan Exp $
+# $FML: Credential.pm,v 1.47 2003/08/29 15:33:54 fukachan Exp $
 #
 
 package FML::Credential;
@@ -118,6 +118,17 @@ sub set_user_part_case_insensitive
 }
 
 
+# Descriptions: whether we should handle user part case insensitively.
+#    Arguments: OBJ($self)
+# Side Effects: none
+# Return Value: none
+sub is_user_part_case_sensitive
+{
+    my ($self) = @_;
+    $self->{ _user_part_case_sensitive } ? 1 : 0;
+}
+
+
 =head2 is_same_address($addr1, $addr2 [, $level])
 
 return 1 (same) or 0 (different).
@@ -168,7 +179,7 @@ sub is_same_address
     my ($xuser, $xdomain) = split(/\@/, $xaddr);
     my ($yuser, $ydomain) = split(/\@/, $yaddr);
     my $level             = 0;
-    my $is_case_sensitive = $self->{ _user_part_case_sensitive };
+    my $is_case_sensitive = $self->is_user_part_case_sensitive();
 
     # the max recursive level in comparison
     $max_level = $max_level || $self->{ _max_level } || 3;
-- 
cgit v1.2.1