diff options
| author | fukachan <fukachan> | 2001-02-06 11:26:31 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-02-06 11:26:31 +0000 |
| commit | 4b1677cd77e3445cd13f549fd89e505908fc6acd (patch) | |
| tree | 757b82363066a3216a96121b728f952b40dfc7dc /fml/lib | |
| parent | e915922308195fa0625710adc3cd624c8183ffdd (diff) | |
| download | fml8-4b1677cd77e3445cd13f549fd89e505908fc6acd.tar.gz fml8-4b1677cd77e3445cd13f549fd89e505908fc6acd.tar.bz2 fml8-4b1677cd77e3445cd13f549fd89e505908fc6acd.zip | |
fmlconf -n shows variables which differ from the default value.
fmlconf shows all variables
Diffstat (limited to 'fml/lib')
| -rw-r--r-- | fml/lib/FML/Config.pm | 7 | ||||
| -rw-r--r-- | fml/lib/FML/Process/Configure.pm | 3 |
2 files changed, 5 insertions, 5 deletions
diff --git a/fml/lib/FML/Config.pm b/fml/lib/FML/Config.pm index 6a557ded..b05f75aa 100644 --- a/fml/lib/FML/Config.pm +++ b/fml/lib/FML/Config.pm @@ -31,11 +31,10 @@ sub new sub dump_variables { - my ($mode) = @_; + my ($self, $args) = @_; my ($k, $v); - my $len = 0; - - $mode ||= 'all'; + my $len = 0; + my $mode = $args->{ mode } || 'all'; for $k (keys %_fml_config) { $len = $len > length($k) ? $len : length($k);} diff --git a/fml/lib/FML/Process/Configure.pm b/fml/lib/FML/Process/Configure.pm index 973371cd..60a6486b 100644 --- a/fml/lib/FML/Process/Configure.pm +++ b/fml/lib/FML/Process/Configure.pm @@ -55,8 +55,9 @@ sub _show_conf { my ($curproc, $args) = @_; my $config = $curproc->{ config }; + my $mode = $args->{ options }->{ n } ? 'difference_only' : 'all'; - $config->dump_variables(); + $config->dump_variables({ mode => $mode }); } |
