diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-07-08 01:43:00 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-07-08 01:43:00 +0000 |
| commit | 0fda8abd4f3bf91257265c8f6cd56650dfccebda (patch) | |
| tree | 74d89cf1800dc658a0a3c5435932562441e0c526 /perl-install | |
| parent | 06b68210c35eecafa6b2732cef8a7508c243991f (diff) | |
| download | drakx-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')
| -rw-r--r-- | perl-install/modules.pm | 4 |
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}) { |