diff options
| author | fukachan <fukachan> | 2001-03-20 04:27:28 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-03-20 04:27:28 +0000 |
| commit | 39d65db81cf0f6491e37ce73c4b7df7efbe2f41d (patch) | |
| tree | 6cf2ebfa9f84fe899be2952bda4e0708d7619085 | |
| parent | 36a66d91c757b721f45134368416aecf69e88e11 (diff) | |
| download | fml8-39d65db81cf0f6491e37ce73c4b7df7efbe2f41d.tar.gz fml8-39d65db81cf0f6491e37ce73c4b7df7efbe2f41d.tar.bz2 fml8-39d65db81cf0f6491e37ce73c4b7df7efbe2f41d.zip | |
update $args description
| -rw-r--r-- | fml/lib/FML/Process/Switch.pm | 32 |
1 files changed, 17 insertions, 15 deletions
diff --git a/fml/lib/FML/Process/Switch.pm b/fml/lib/FML/Process/Switch.pm index 15428caf..6e4e7211 100644 --- a/fml/lib/FML/Process/Switch.pm +++ b/fml/lib/FML/Process/Switch.pm @@ -242,21 +242,22 @@ sub _makefml_parse_argv =head2 C<ProcessSwitch($args)> my $args = { - fml_version => $main_cf->{ fml_version }, - - myname => $myname, - ml_home_prefix => $main_cf->{ ml_home_prefix }, - ml_home_dir => $main_cf->{ ml_home_dir }, - - cf_list => $cf, - options => \%options, - - # pass the original information to each process - argv => \@argv, - ARGV => \@ARGV, - - # options - need_ml_name => _ml_name_is_required($myname), + fml_version => $main_cf->{ fml_version }, + + myname => $myname, + ml_home_prefix => $main_cf->{ ml_home_prefix }, + ml_home_dir => $main_cf->{ ml_home_dir }, + + cf_list => $cf, + options => \%options, + + argv => \@argv, # pass the original @ARGV + ARGV => \@ARGV, # @ARGV after getopts() + + main_cf => $main_cf, + + # options + need_ml_name => _ml_name_is_required($myname), }; # get the object. The suitable module is speculcated by $0. @@ -267,6 +268,7 @@ sub _makefml_parse_argv =cut + # Descriptions: top level process switch # emulates "use $package" but $package is dynamically # determined by e.g. $0. |
