summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGuillaume Cottenceau <gc@mandriva.com>2003-11-03 18:40:36 +0000
committerGuillaume Cottenceau <gc@mandriva.com>2003-11-03 18:40:36 +0000
commit615387d61d38fb39de71478f0168efb374d62aca (patch)
tree0a3702128619f233f510b1fcea2b47a42428b485
parented535ad3110069a7578def069d69b7da545b9542 (diff)
downloaddrakx-backup-do-not-use-615387d61d38fb39de71478f0168efb374d62aca.tar
drakx-backup-do-not-use-615387d61d38fb39de71478f0168efb374d62aca.tar.gz
drakx-backup-do-not-use-615387d61d38fb39de71478f0168efb374d62aca.tar.bz2
drakx-backup-do-not-use-615387d61d38fb39de71478f0168efb374d62aca.tar.xz
drakx-backup-do-not-use-615387d61d38fb39de71478f0168efb374d62aca.zip
perl checker
-rw-r--r--perl-install/modules.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/modules.pm b/perl-install/modules.pm
index 5be4cbfa0..e2e4da418 100644
--- a/perl-install/modules.pm
+++ b/perl-install/modules.pm
@@ -232,7 +232,7 @@ sub mergein_conf {
my ($file) = @_;
my $modconfref = read_conf($file);
while (my ($key, $value) = each %$modconfref) {
- $conf{$key}{alias} = $value->{alias} if ! $conf{$key}{alias};
+ $conf{$key}{alias} ||= $value->{alias};
$conf{$key}{options} = $value->{options} if $value->{options};
push @{$conf{$key}{probeall} ||= []}, deref($value->{probeall});
}