summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorfukachan <fukachan>2001-03-20 04:27:28 +0000
committerfukachan <fukachan>2001-03-20 04:27:28 +0000
commit39d65db81cf0f6491e37ce73c4b7df7efbe2f41d (patch)
tree6cf2ebfa9f84fe899be2952bda4e0708d7619085
parent36a66d91c757b721f45134368416aecf69e88e11 (diff)
downloadfml8-39d65db81cf0f6491e37ce73c4b7df7efbe2f41d.tar.gz
fml8-39d65db81cf0f6491e37ce73c4b7df7efbe2f41d.tar.bz2
fml8-39d65db81cf0f6491e37ce73c4b7df7efbe2f41d.zip
update $args description
-rw-r--r--fml/lib/FML/Process/Switch.pm32
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.