From 549bb8470b596cc0bf36c00a11f70cabffc51f19 Mon Sep 17 00:00:00 2001
From: fukachan <fukachan>
Date: Wed, 30 Nov 2005 23:50:19 +0000
Subject: use $curproc->credential()

---
 fml/lib/FML/Process/Utils.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'fml/lib/FML/Process/Utils.pm')

diff --git a/fml/lib/FML/Process/Utils.pm b/fml/lib/FML/Process/Utils.pm
index 05e332fb..a6cd18a6 100644
--- a/fml/lib/FML/Process/Utils.pm
+++ b/fml/lib/FML/Process/Utils.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: Utils.pm,v 1.139 2005/08/31 11:15:43 fukachan Exp $
+# $FML: Utils.pm,v 1.140 2005/11/30 21:58:27 fukachan Exp $
 #
 
 package FML::Process::Utils;
@@ -1315,7 +1315,7 @@ sub __ml_home_prefix_from_main_cf
 sub ___search_in_ml_home_prefix_maps
 {
     my ($curproc, $main_cf, $domain, $prefix_maps) = @_;
-    my $cred = $curproc->{ credential };
+    my $cred = $curproc->credential();
 
     if (@$prefix_maps) {
 	my $dir  = '';
@@ -1669,7 +1669,7 @@ sub address_resolve
 {
     my ($curproc, $list) = @_;
     my $config = $curproc->config();
-    my $cred   = $curproc->{ credential };
+    my $cred   = $curproc->credential();
     my $result = [];
 
     for my $rcpt (@$list) {
@@ -2049,7 +2049,7 @@ sub command_line_cui_specific_recipient
     my ($curproc) = @_;
     my $args      = $curproc->{ __parent_args };
     my $rcpt      = $args->{ options }->{ 'send-to' } || '';
-    my $cred      = $curproc->{ credential };
+    my $cred      = $curproc->credential();
     my $sender    = $cred->sender() || '';
 
     return( $rcpt || $sender || '' );
-- 
cgit v1.2.1