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/Digest.pm | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

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

diff --git a/fml/lib/FML/Process/Digest.pm b/fml/lib/FML/Process/Digest.pm
index c24dd21b..478c5ca2 100644
--- a/fml/lib/FML/Process/Digest.pm
+++ b/fml/lib/FML/Process/Digest.pm
@@ -3,7 +3,7 @@
 # Copyright (C) 2002,2003,2004,2005 Ken'ichi Fukamachi
 #          All rights reserved.
 #
-# $FML: Digest.pm,v 1.23 2005/06/04 08:51:30 fukachan Exp $
+# $FML: Digest.pm,v 1.24 2005/08/10 15:03:25 fukachan Exp $
 #
 
 package FML::Process::Digest;
@@ -116,7 +116,8 @@ sub verify_request
     if ($eval) { eval qq{ $eval; }; $curproc->logwarn($@) if $@; }
 
     # set sender against further errors
-    $curproc->{'credential'}->set( 'sender', $maintainer );
+    my $cred = $curproc->credential();
+    $cred->set( 'sender', $maintainer );
 
     $eval = $config->get_hook( 'article_digest_verify_request_end_hook' );
     if ($eval) { eval qq{ $eval; }; $curproc->logwarn($@) if $@; }
@@ -147,7 +148,8 @@ sub run
     my ($curproc, $args) = @_;
     my $config     = $curproc->config();
     my $maintainer = $config->{ maintainer };
-    my $sender     = $curproc->{'credential'}->{'sender'};
+    my $cred       = $curproc->credential();
+    my $sender     = $cred->sender();
 
     my $eval = $config->get_hook( 'article_digest_run_start_hook' );
     if ($eval) { eval qq{ $eval; }; $curproc->logwarn($@) if $@; }
-- 
cgit v1.2.1