diff options
| author | fukachan <fukachan> | 2005-12-17 13:47:32 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2005-12-17 13:47:32 +0000 |
| commit | b1e53dfc18bc759a8917e95172bdf043bfe1e105 (patch) | |
| tree | 8e1dc9f498a3730bc1285c7887aabde9e7d7639d /fml/lib/FML/Process | |
| parent | b3bcc16342a9db03c71cac7acd14c431d10eb908 (diff) | |
| download | fml8-b1e53dfc18bc759a8917e95172bdf043bfe1e105.tar.gz fml8-b1e53dfc18bc759a8917e95172bdf043bfe1e105.tar.bz2 fml8-b1e53dfc18bc759a8917e95172bdf043bfe1e105.zip | |
not need to pass $args to FML::Process::Switch::NewProcess() which
fake $args by $curproc->dup_curproc_args().
Diffstat (limited to 'fml/lib/FML/Process')
| -rw-r--r-- | fml/lib/FML/Process/FetchFML.pm | 3 | ||||
| -rw-r--r-- | fml/lib/FML/Process/Switch.pm | 11 |
2 files changed, 8 insertions, 6 deletions
diff --git a/fml/lib/FML/Process/FetchFML.pm b/fml/lib/FML/Process/FetchFML.pm index 3b8b8739..0b9a21b6 100644 --- a/fml/lib/FML/Process/FetchFML.pm +++ b/fml/lib/FML/Process/FetchFML.pm @@ -3,7 +3,7 @@ # Copyright (C) 2005 Ken'ichi Fukamachi # All rights reserved. # -# $FML: FetchFML.pm,v 1.4 2005/08/19 12:08:17 fukachan Exp $ +# $FML: FetchFML.pm,v 1.5 2005/08/23 12:32:06 fukachan Exp $ # package FML::Process::FetchFML; @@ -142,7 +142,6 @@ sub run use FML::Process::Switch; &FML::Process::Switch::NewProcess($curproc, - $args, $myname, $ml_name, $ml_domain); diff --git a/fml/lib/FML/Process/Switch.pm b/fml/lib/FML/Process/Switch.pm index b4c61260..c9bafb5a 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.109 2005/06/03 09:55:17 fukachan Exp $ +# $FML: Switch.pm,v 1.110 2005/08/11 04:14:43 fukachan Exp $ # package FML::Process::Switch; @@ -249,19 +249,22 @@ restart new another process (switch to it on running). # Descriptions: restart new another process (switch to it on running). -# Arguments: OBJ($curproc) HASH_REF($args) +# Arguments: OBJ($curproc) # STR($new_myname) STR($ml_name) STR($ml_domain) # Side Effects: none # Return Value: none sub NewProcess { - my ($curproc, $args, $new_myname, $ml_name, $ml_domain) = @_; + my ($curproc, $new_myname, $ml_name, $ml_domain) = @_; my $ml_addr = sprintf("%s@%s", $ml_name, $ml_domain); use File::Basename; my $old_myname = basename($0); - # reset $args + # fake another $args as could as possible. + # XXX (ARGV options main_cf module_info argv curproc cf_list) + # XXX these are references, which inherits the original value in $args. + my $args = $curproc->dup_curproc_args(); $args->{ myname } = $new_myname; $args->{ program_name } = $new_myname; $args->{ program_fullname } =~ s/$old_myname/$new_myname/; |