diff options
| author | fukachan <fukachan> | 2003-08-29 15:33:54 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2003-08-29 15:33:54 +0000 |
| commit | e460ae393d4c06ac2219811653b1388acf28bebb (patch) | |
| tree | 5c04b53bb40f2e2e749db3be89dd9db9920830bb /fml/lib/FML/Process/Error.pm | |
| parent | 69b67704253d230af64d85a6b8b91ed4b9bac14d (diff) | |
| download | fml8-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.pm | 14 |
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 $@; } |
