diff options
| author | fukachan <fukachan> | 2001-11-04 03:44:46 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-11-04 03:44:46 +0000 |
| commit | 0b5b1807f6511cf2996f698f5f52e99688f8fcba (patch) | |
| tree | 2817e9f80c6e05c2ba3c6bcc4bc01fdfe24469af /fml/lib/FML/Process | |
| parent | 89d34199bf1756f7c9fcce0732b7385d2e32ebee (diff) | |
| download | fml8-0b5b1807f6511cf2996f698f5f52e99688f8fcba.tar.gz fml8-0b5b1807f6511cf2996f698f5f52e99688f8fcba.tar.bz2 fml8-0b5b1807f6511cf2996f698f5f52e99688f8fcba.zip | |
my $myname = $curproc->myname();
my $argv = $curproc->command_line_argv();
Diffstat (limited to 'fml/lib/FML/Process')
| -rw-r--r-- | fml/lib/FML/Process/Command.pm | 4 | ||||
| -rw-r--r-- | fml/lib/FML/Process/Configure.pm | 10 | ||||
| -rw-r--r-- | fml/lib/FML/Process/DocViewer.pm | 10 |
3 files changed, 12 insertions, 12 deletions
diff --git a/fml/lib/FML/Process/Command.pm b/fml/lib/FML/Process/Command.pm index 2f7ba5fb..1ff1484b 100644 --- a/fml/lib/FML/Process/Command.pm +++ b/fml/lib/FML/Process/Command.pm @@ -4,7 +4,7 @@ # Copyright (C) 2000,2001 Ken'ichi Fukamachi # All rights reserved. # -# $FML: Command.pm,v 1.19 2001/10/14 00:33:41 fukachan Exp $ +# $FML: Command.pm,v 1.20 2001/10/14 03:31:10 fukachan Exp $ # package FML::Process::Command; @@ -213,7 +213,7 @@ sub _evaluate_command my ($curproc, $args) = @_; my $config = $curproc->{ config }; my $ml_name = $config->{ ml_name }; - my $argv = $config->{ main_cf }->{ ARGV }; + my $argv = $curproc->command_line_argv(); my $keyword = $config->{ confirm_keyword }; my $prompt = $config->{ command_prompt } || '>>>'; diff --git a/fml/lib/FML/Process/Configure.pm b/fml/lib/FML/Process/Configure.pm index 92216d27..7809efcf 100644 --- a/fml/lib/FML/Process/Configure.pm +++ b/fml/lib/FML/Process/Configure.pm @@ -4,7 +4,7 @@ # Copyright (C) 2000,2001 Ken'ichi Fukamachi # All rights reserved. # -# $FML: Configure.pm,v 1.26 2001/10/14 00:58:41 fukachan Exp $ +# $FML: Configure.pm,v 1.27 2001/10/14 03:08:59 fukachan Exp $ # package FML::Process::Configure; @@ -101,8 +101,8 @@ sub run { my ($curproc, $args) = @_; my $config = $curproc->{ config }; - my $myname = $args->{ myname }; - my $argv = $args->{ ARGV }; + my $myname = $curproc->myname(); + my $argv = $curproc->command_line_argv(); if ($myname eq 'fmlconf') { $curproc->_fmlconf($args); @@ -163,8 +163,8 @@ sub _makefml { my ($curproc, $args) = @_; my $config = $curproc->{ config }; - my $myname = $args->{ myname }; - my $argv = $args->{ ARGV }; + my $myname = $curproc->myname(); + my $argv = $curproc->command_line_argv(); my ($method, $ml_name, @options) = @$argv; diff --git a/fml/lib/FML/Process/DocViewer.pm b/fml/lib/FML/Process/DocViewer.pm index c67583fe..c1ae768d 100644 --- a/fml/lib/FML/Process/DocViewer.pm +++ b/fml/lib/FML/Process/DocViewer.pm @@ -4,7 +4,7 @@ # Copyright (C) 2000,2001 Ken'ichi Fukamachi # All rights reserved. # -# $FML: DocViewer.pm,v 1.2 2001/04/03 09:45:43 fukachan Exp $ +# $FML: DocViewer.pm,v 1.3 2001/05/29 16:21:16 fukachan Exp $ # package FML::Process::DocViewer; @@ -91,8 +91,8 @@ sub run { my ($curproc, $args) = @_; my $config = $curproc->{ config }; - my $myname = $args->{ myname }; - my $argv = $args->{ ARGV }; + my $myname = $curproc->myname(); + my $argv = $curproc->command_line_argv(); if ($myname eq 'fmldoc') { $curproc->_fmldoc($args); @@ -111,8 +111,8 @@ sub _fmldoc { my ($curproc, $args) = @_; my $config = $curproc->{ config }; - my $myname = $args->{ myname }; - my $argv = $args->{ ARGV }; + my $myname = $curproc->myname(); + my $argv = $curproc->command_line_argv(); my (@opts); push(@opts, '-v') if $args->{ options }->{ v }; |