diff options
| -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. |