summaryrefslogtreecommitdiff
path: root/fml/lib/FML/Process/Error.pm
diff options
context:
space:
mode:
authorfukachan <fukachan>2003-08-29 15:33:54 +0000
committerfukachan <fukachan>2003-08-29 15:33:54 +0000
commite460ae393d4c06ac2219811653b1388acf28bebb (patch)
tree5c04b53bb40f2e2e749db3be89dd9db9920830bb /fml/lib/FML/Process/Error.pm
parent69b67704253d230af64d85a6b8b91ed4b9bac14d (diff)
downloadfml8-e460ae393d4c06ac2219811653b1388acf28bebb.tar.gz
fml8-e460ae393d4c06ac2219811653b1388acf28bebb.tar.bz2
fml8-e460ae393d4c06ac2219811653b1388acf28bebb.zip
use $curproc->config(), pcb() not { config }, { pcb } respectively.
Diffstat (limited to 'fml/lib/FML/Process/Error.pm')
-rw-r--r--fml/lib/FML/Process/Error.pm14
1 files changed, 7 insertions, 7 deletions
diff --git a/fml/lib/FML/Process/Error.pm b/fml/lib/FML/Process/Error.pm
index d71a32da..aae15a2e 100644
--- a/fml/lib/FML/Process/Error.pm
+++ b/fml/lib/FML/Process/Error.pm
@@ -3,7 +3,7 @@
# Copyright (C) 2002,2003 Ken'ichi Fukamachi
# All rights reserved.
#
-# $FML: Error.pm,v 1.32 2003/08/23 04:35:39 fukachan Exp $
+# $FML: Error.pm,v 1.33 2003/08/23 07:24:47 fukachan Exp $
#
package FML::Process::Error;
@@ -71,7 +71,7 @@ if $use_error_analyzer_program, parse incoming message.
sub prepare
{
my ($curproc, $args) = @_;
- my $config = $curproc->{ config };
+ my $config = $curproc->config();
my $eval = $config->get_hook( 'error_prepare_start_hook' );
if ($eval) { eval qq{ $eval; }; $curproc->logwarn($@) if $@; }
@@ -107,7 +107,7 @@ dummy.
sub verify_request
{
my ($curproc, $args) = @_;
- my $config = $curproc->{ config };
+ my $config = $curproc->config();
my $maintainer = $config->{ maintainer };
my $eval = $config->get_hook( 'error_verify_request_start_hook' );
@@ -145,9 +145,9 @@ XXX Each command determines need of lock or not.
sub run
{
my ($curproc, $args) = @_;
- my $config = $curproc->{ config };
+ my $config = $curproc->config();
my $found = 0;
- my $pcb = $curproc->{ pcb };
+ my $pcb = $curproc->pcb();
my $msg = $curproc->incoming_message();
my $eval = $config->get_hook( 'error_run_start_hook' );
@@ -267,8 +267,8 @@ _EOF_
sub finish
{
my ($curproc, $args) = @_;
- my $config = $curproc->{ config };
- my $pcb = $curproc->{ pcb };
+ my $config = $curproc->config();
+ my $pcb = $curproc->pcb();
my $eval = $config->get_hook( 'error_finish_start_hook' );
if ($eval) { eval qq{ $eval; }; $curproc->logwarn($@) if $@; }