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/DocViewer.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/DocViewer.pm')
| -rw-r--r-- | fml/lib/FML/Process/DocViewer.pm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/fml/lib/FML/Process/DocViewer.pm b/fml/lib/FML/Process/DocViewer.pm index 910f7c1d..f5ee9c8b 100644 --- a/fml/lib/FML/Process/DocViewer.pm +++ b/fml/lib/FML/Process/DocViewer.pm @@ -3,7 +3,7 @@ # Copyright (C) 2000,2001,2002,2003 Ken'ichi Fukamachi # All rights reserved. # -# $FML: DocViewer.pm,v 1.24 2003/08/23 04:35:39 fukachan Exp $ +# $FML: DocViewer.pm,v 1.25 2003/08/23 07:24:47 fukachan Exp $ # package FML::Process::DocViewer; @@ -75,7 +75,7 @@ sub new sub prepare { my ($curproc, $args) = @_; - my $config = $curproc->{ config }; + my $config = $curproc->config(); my $eval = $config->get_hook( 'fmldoc_prepare_start_hook' ); if ($eval) { eval qq{ $eval; }; $curproc->logwarn($@) if $@; } @@ -98,7 +98,7 @@ sub verify_request { my ($curproc, $args) = @_; my $argv = $curproc->command_line_argv(); - my $config = $curproc->{ config }; + my $config = $curproc->config(); my $eval = $config->get_hook( 'fmldoc_verify_request_start_hook' ); if ($eval) { eval qq{ $eval; }; $curproc->logwarn($@) if $@; } @@ -129,7 +129,7 @@ C<fmlconf($args)>. sub run { my ($curproc, $args) = @_; - my $config = $curproc->{ config }; + my $config = $curproc->config(); my $myname = $curproc->myname(); my $argv = $curproc->command_line_argv(); @@ -144,7 +144,7 @@ sub run sub _fmldoc { my ($curproc, $args) = @_; - my $config = $curproc->{ config }; + my $config = $curproc->config(); my $myname = $curproc->myname(); my $argv = $curproc->command_line_argv(); @@ -216,7 +216,7 @@ finalize. sub finish { my ($curproc, $args) = @_; - my $config = $curproc->{ config }; + my $config = $curproc->config(); my $eval = $config->get_hook( 'fmldoc_finish_start_hook' ); if ($eval) { eval qq{ $eval; }; $curproc->logwarn($@) if $@; } |
