diff options
| author | fukachan <fukachan> | 2006-02-04 07:49:56 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2006-02-04 07:49:56 +0000 |
| commit | ee7f084c82f069bafb1cdc6dae48d4a845369ef8 (patch) | |
| tree | be9d9b1e1a3b7f728004b15d4f645579a7949967 /fml/lib/FML/Process | |
| parent | e90ad49eaa65562970ed1c74eaf5cc3e0066cfe7 (diff) | |
| download | fml8-ee7f084c82f069bafb1cdc6dae48d4a845369ef8.tar.gz fml8-ee7f084c82f069bafb1cdc6dae48d4a845369ef8.tar.bz2 fml8-ee7f084c82f069bafb1cdc6dae48d4a845369ef8.zip | |
use $curproc->{ml_name,ml_domain}() method.
$command_args includes ml_domain info.
Diffstat (limited to 'fml/lib/FML/Process')
| -rw-r--r-- | fml/lib/FML/Process/Configure.pm | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/fml/lib/FML/Process/Configure.pm b/fml/lib/FML/Process/Configure.pm index a9f758ea..f395bdd3 100644 --- a/fml/lib/FML/Process/Configure.pm +++ b/fml/lib/FML/Process/Configure.pm @@ -3,7 +3,7 @@ # Copyright (C) 2001,2002,2003,2004,2005,2006 Ken'ichi Fukamachi # All rights reserved. # -# $FML: Configure.pm,v 1.70 2005/08/10 15:03:25 fukachan Exp $ +# $FML: Configure.pm,v 1.71 2006/01/09 14:00:54 fukachan Exp $ # package FML::Process::Configure; @@ -284,10 +284,11 @@ See <FML::Process::Switch()> on C<$args> for more details. sub _makefml { my ($curproc, $args) = @_; - my $config = $curproc->config(); - my $ml_name = $config->{ ml_name }; - my $myname = $curproc->myname(); - my $argv = $curproc->command_line_argv(); + my $config = $curproc->config(); + my $ml_name = $curproc->ml_name(); + my $ml_domain = $curproc->ml_domain(); + my $myname = $curproc->myname(); + my $argv = $curproc->command_line_argv(); my ($method, $argv_ml_name, @options); # XXX hmm, HARD-CODED but no idea. @@ -308,6 +309,7 @@ sub _makefml comname => $method, command => "$method @options", ml_name => $ml_name, + ml_domain => $ml_domain, options => \@options, argv => $argv, |