diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-11-06 16:30:25 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-11-06 16:30:25 +0000 |
| commit | 85d0fcbe247e2c83af5d1d0b8d266514df7970c9 (patch) | |
| tree | fcc3f6bd27936447b4e73df3ef6757cfc28b1037 | |
| parent | e66aac574917097a1294e28f1e5aa8b18beaab19 (diff) | |
| download | drakx-85d0fcbe247e2c83af5d1d0b8d266514df7970c9.tar drakx-85d0fcbe247e2c83af5d1d0b8d266514df7970c9.tar.gz drakx-85d0fcbe247e2c83af5d1d0b8d266514df7970c9.tar.bz2 drakx-85d0fcbe247e2c83af5d1d0b8d266514df7970c9.tar.xz drakx-85d0fcbe247e2c83af5d1d0b8d266514df7970c9.zip | |
(write_conf) do not discard remove_alias changes ... (why nobody never
saw it in years :-()
| -rw-r--r-- | perl-install/modules.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/perl-install/modules.pm b/perl-install/modules.pm index e2e4da418..e78b3d8d4 100644 --- a/perl-install/modules.pm +++ b/perl-install/modules.pm @@ -261,7 +261,9 @@ sub write_conf { } elsif ($conf{$alias}{$type} && $conf{$alias}{$type} ne $module) { my $v = join(' ', uniq(deref($conf{$alias}{$type}))); $_ = "$type $alias $v\n"; - } + } elsif ($type eq 'alias' && !defined $conf{$alias}{alias}) { + undef $_; + } } $file; my $written = read_conf($file); |