diff options
| author | fukachan <fukachan> | 2003-01-03 10:15:40 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2003-01-03 10:15:40 +0000 |
| commit | 06553e5a8fa490acffd8208af4840d75a7a68476 (patch) | |
| tree | fbc695465632032e2e939ce982be1e47ec238dce /fml/lib | |
| parent | c01c4bec19fa0b3ec0210a6c5e2307dd0baeee8a (diff) | |
| download | fml8-06553e5a8fa490acffd8208af4840d75a7a68476.tar.gz fml8-06553e5a8fa490acffd8208af4840d75a7a68476.tar.bz2 fml8-06553e5a8fa490acffd8208af4840d75a7a68476.zip | |
fix help message.
nuke not used variables.
Diffstat (limited to 'fml/lib')
| -rw-r--r-- | fml/lib/FML/Process/Addr.pm | 14 | ||||
| -rw-r--r-- | fml/lib/FML/Process/Alias.pm | 15 |
2 files changed, 17 insertions, 12 deletions
diff --git a/fml/lib/FML/Process/Addr.pm b/fml/lib/FML/Process/Addr.pm index 736b754e..fbc9bc30 100644 --- a/fml/lib/FML/Process/Addr.pm +++ b/fml/lib/FML/Process/Addr.pm @@ -3,7 +3,7 @@ # Copyright (C) 2001,2002 Ken'ichi Fukamachi # All rights reserved. # -# $FML: Addr.pm,v 1.2 2002/11/10 14:50:19 fukachan Exp $ +# $FML: Addr.pm,v 1.3 2002/12/18 04:42:37 fukachan Exp $ # package FML::Process::Addr; @@ -181,7 +181,13 @@ sub help print <<"_EOF_"; -Usage: $name \$command \$ml_name [options] +Usage: $name [options] + +-n show fml specific aliases. + +[BUGS] + support only fml8 + postfix case. + also, we assume /etc/passwd exists. _EOF_ } @@ -205,9 +211,7 @@ See <FML::Process::Switch()> on C<$args> for more details. sub _fmladdr { my ($curproc, $args) = @_; - my $config = $curproc->{ config }; - my $myname = $curproc->myname(); - my $argv = $curproc->command_line_argv(); + my $config = $curproc->{ config }; my $eval = $config->get_hook( 'fmladdr_run_start_hook' ); if ($eval) { eval qq{ $eval; }; LogWarn($@) if $@; } diff --git a/fml/lib/FML/Process/Alias.pm b/fml/lib/FML/Process/Alias.pm index 335d4f1d..14ccdeb4 100644 --- a/fml/lib/FML/Process/Alias.pm +++ b/fml/lib/FML/Process/Alias.pm @@ -3,7 +3,7 @@ # Copyright (C) 2001,2002 Ken'ichi Fukamachi # All rights reserved. # -# $FML: Alias.pm,v 1.5 2002/09/22 14:56:51 fukachan Exp $ +# $FML: Alias.pm,v 1.6 2002/12/18 04:43:51 fukachan Exp $ # package FML::Process::Alias; @@ -175,7 +175,12 @@ sub help print <<"_EOF_"; -Usage: $name \$command \$ml_name [options] +Usage: $name [options] + +-n show fml specific aliases. + +[BUGS] + support only fml8 + postfix case. _EOF_ } @@ -204,11 +209,7 @@ See <FML::Process::Switch()> on C<$args> for more details. sub _fmlalias { my ($curproc, $args) = @_; - my $config = $curproc->{ config }; - my $myname = $curproc->myname(); - my $argv = $curproc->command_line_argv(); - - my ($method, $ml_name, @options) = @$argv; + my $config = $curproc->{ config }; my $eval = $config->get_hook( 'fmlalias_run_start_hook' ); if ($eval) { eval qq{ $eval; }; LogWarn($@) if $@; } |