summaryrefslogtreecommitdiffstats
path: root/perl-install/modules.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-07-08 01:43:00 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-07-08 01:43:00 +0000
commit0fda8abd4f3bf91257265c8f6cd56650dfccebda (patch)
tree74d89cf1800dc658a0a3c5435932562441e0c526 /perl-install/modules.pm
parent06b68210c35eecafa6b2732cef8a7508c243991f (diff)
downloaddrakx-backup-do-not-use-0fda8abd4f3bf91257265c8f6cd56650dfccebda.tar
drakx-backup-do-not-use-0fda8abd4f3bf91257265c8f6cd56650dfccebda.tar.gz
drakx-backup-do-not-use-0fda8abd4f3bf91257265c8f6cd56650dfccebda.tar.bz2
drakx-backup-do-not-use-0fda8abd4f3bf91257265c8f6cd56650dfccebda.tar.xz
drakx-backup-do-not-use-0fda8abd4f3bf91257265c8f6cd56650dfccebda.zip
fix previous commit
Diffstat (limited to 'perl-install/modules.pm')
-rw-r--r--perl-install/modules.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/modules.pm b/perl-install/modules.pm
index b2430190e..832a93127 100644
--- a/perl-install/modules.pm
+++ b/perl-install/modules.pm
@@ -296,7 +296,7 @@ sub write_conf() {
#- Substitute new aliases in modules.conf (if config has changed)
substInFile {
- my ($type, $module, $module) = split(/\s+/, chomp_($_), 3);
+ my ($type, $module, $val) = split(/\s+/, chomp_($_), 3);
if ($type eq 'post-install' && $module eq 'supermount') {
#- remove the post-install supermount stuff.
$_ = '';
@@ -309,7 +309,7 @@ sub write_conf() {
s/snd-card/snd/g;
s/snd-via686|snd-via8233/snd-via82xx/g;
defined $conf{$module}{above} or $_ = '';
- } elsif ($conf{$module}{$type} && $conf{$module}{$type} ne $module) {
+ } elsif ($conf{$module}{$type} && $conf{$module}{$type} ne $val) {
my $v = join(' ', uniq(deref($conf{$module}{$type})));
$_ = "$type $module $v\n";
} elsif ($type eq 'alias' && !defined $conf{$module}{alias}) {