summaryrefslogtreecommitdiff
path: root/fml/lib
diff options
context:
space:
mode:
authorfukachan <fukachan>2001-02-06 11:26:31 +0000
committerfukachan <fukachan>2001-02-06 11:26:31 +0000
commit4b1677cd77e3445cd13f549fd89e505908fc6acd (patch)
tree757b82363066a3216a96121b728f952b40dfc7dc /fml/lib
parente915922308195fa0625710adc3cd624c8183ffdd (diff)
downloadfml8-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.pm7
-rw-r--r--fml/lib/FML/Process/Configure.pm3
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 });
}