diff options
| author | fukachan <fukachan> | 2002-09-29 05:28:25 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-09-29 05:28:25 +0000 |
| commit | ba226e49613526a9ce41956432d76dfac0c87b63 (patch) | |
| tree | ba15d8c68cd655049fa0925947e8188ea403426c /fml/lib/FML/Process | |
| parent | 2d1064aa14e2f55a501bd00844caf5f84e74224d (diff) | |
| download | fml8-ba226e49613526a9ce41956432d76dfac0c87b63.tar.gz fml8-ba226e49613526a9ce41956432d76dfac0c87b63.tar.bz2 fml8-ba226e49613526a9ce41956432d76dfac0c87b63.zip | |
"fmlconf $ml $varname" shows "$varname = $value".
unless $varname specified, dump all variables.
Diffstat (limited to 'fml/lib/FML/Process')
| -rw-r--r-- | fml/lib/FML/Process/ConfViewer.pm | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/fml/lib/FML/Process/ConfViewer.pm b/fml/lib/FML/Process/ConfViewer.pm index 511eac13..5058df26 100644 --- a/fml/lib/FML/Process/ConfViewer.pm +++ b/fml/lib/FML/Process/ConfViewer.pm @@ -3,7 +3,7 @@ # Copyright (C) 2000,2001,2002 Ken'ichi Fukamachi # All rights reserved. # -# $FML: ConfViewer.pm,v 1.16 2002/09/11 23:18:14 fukachan Exp $ +# $FML: ConfViewer.pm,v 1.17 2002/09/22 14:56:52 fukachan Exp $ # package FML::Process::ConfViewer; @@ -223,8 +223,15 @@ sub _fmlconf my ($curproc, $args) = @_; my $config = $curproc->{ config }; my $mode = $args->{ options }->{ n } ? 'difference_only' : 'all'; + my $argv = $curproc->command_line_argv(); - $config->dump_variables({ mode => $mode }); + if (defined $argv->[1]) { + my $k = $argv->[1]; + print "$k = ", $config->{ $k }, "\n"; + } + else { + $config->dump_variables({ mode => $mode }); + } } |