diff options
author | Thierry Vignaud <tv@mandriva.org> | 2009-02-25 09:28:44 +0000 |
---|---|---|
committer | Thierry Vignaud <tv@mandriva.org> | 2009-02-25 09:28:44 +0000 |
commit | 6c1837a6cb4385ae75c67028e84ad8dcac2c2ad9 (patch) | |
tree | 3f9773cb97ae784aec0f0e7b78c60a8c82d486b3 /perl-install/modules/interactive.pm | |
parent | 3ce9ed463e61c2ab1aa8246e7c6d4f78e9c9f3d1 (diff) | |
download | drakx-6c1837a6cb4385ae75c67028e84ad8dcac2c2ad9.tar drakx-6c1837a6cb4385ae75c67028e84ad8dcac2c2ad9.tar.gz drakx-6c1837a6cb4385ae75c67028e84ad8dcac2c2ad9.tar.bz2 drakx-6c1837a6cb4385ae75c67028e84ad8dcac2c2ad9.tar.xz drakx-6c1837a6cb4385ae75c67028e84ad8dcac2c2ad9.zip |
(config_window) remove empty module parameter instead of writing them (#40581)
Diffstat (limited to 'perl-install/modules/interactive.pm')
-rw-r--r-- | perl-install/modules/interactive.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/modules/interactive.pm b/perl-install/modules/interactive.pm index f3b26f218..6bdbfb3b5 100644 --- a/perl-install/modules/interactive.pm +++ b/perl-install/modules/interactive.pm @@ -20,8 +20,9 @@ sub config_window { return; } if ($in->ask_from(N("Module configuration"), N("You can configure each parameter of the module here."), \@l)) { - my $options = join(' ', map { if_(defined $conf{$_}, "$_=$conf{$_}") } keys %conf); - if ($options) { + my $options = join(' ', map { if_($conf{$_}, "$_=$conf{$_}") } keys %conf); + my $old_options = $modules_conf->get_options($data->{driver}); + if ($options ne $old_options) { $modules_conf->set_options($data->{driver}, $options); $modules_conf->write; } |