diff options
| author | fukachan <fukachan> | 2001-11-27 04:00:19 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-11-27 04:00:19 +0000 |
| commit | df2543d2541de1ade580c5bda93bfb9dd8193034 (patch) | |
| tree | 2fc9ba1606c92598f893bed34d4054ef3a503ffb /fml/lib | |
| parent | e343c45290fa36fab9fdd326bd82f98373394e75 (diff) | |
| download | fml8-df2543d2541de1ade580c5bda93bfb9dd8193034.tar.gz fml8-df2543d2541de1ade580c5bda93bfb9dd8193034.tar.bz2 fml8-df2543d2541de1ade580c5bda93bfb9dd8193034.zip | |
modified not to use Standalone.pm
loader has Standalone by itself now.
Diffstat (limited to 'fml/lib')
| -rw-r--r-- | fml/lib/FML/Process/Switch.pm | 18 |
1 files changed, 8 insertions, 10 deletions
diff --git a/fml/lib/FML/Process/Switch.pm b/fml/lib/FML/Process/Switch.pm index f94d96bc..198bcd4b 100644 --- a/fml/lib/FML/Process/Switch.pm +++ b/fml/lib/FML/Process/Switch.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: Switch.pm,v 1.45 2001/11/25 06:46:29 fukachan Exp $ +# $FML: Switch.pm,v 1.46 2001/11/25 07:47:32 fukachan Exp $ # package FML::Process::Switch; @@ -83,14 +83,14 @@ We pass it to C<ProcessSwitch()> later. # Return Value: the same as FML::Process::Flow::ProcessStart() sub main::Bootstrap2 { - my ($main_cf_file) = @_; - my @argv = @ARGV; # save the original argument vector - my @cf = (); - my %options = (); - my $ml_home_dir = ''; # e.g. /var/spool/ml/elena + my ($main_cf_file, $main_cf) = @_; + my @argv = @ARGV; # save the original argument vector + my @cf = (); + my %options = (); + my $ml_home_dir = ''; # e.g. /var/spool/ml/elena use File::Basename; - my $myname = basename($0); # inspect my name from $0 + my $myname = basename($0); # inspect my name from $0 # 0.1 print STDERR "\nsetuid is not set $< != $>\n\n" if $< != $>; @@ -114,9 +114,7 @@ sub main::Bootstrap2 } # 2.1 analyze main.cf and get the result in $main_cf - use Standalone; - $main_cf_file = $options{'c'} || $main_cf_file; - my $main_cf = Standalone::load_cf($main_cf_file, $options{'params'}); + # removed. # 2.2 parse @ARGV and get a list of configuration files # XXX $main_cf{ ml_home_dir } (e.g. /var/spool/ml/elena) is defined |