diff options
| author | Guillaume Cottenceau <gc@mandriva.com> | 2003-11-03 18:40:36 +0000 |
|---|---|---|
| committer | Guillaume Cottenceau <gc@mandriva.com> | 2003-11-03 18:40:36 +0000 |
| commit | 615387d61d38fb39de71478f0168efb374d62aca (patch) | |
| tree | 0a3702128619f233f510b1fcea2b47a42428b485 | |
| parent | ed535ad3110069a7578def069d69b7da545b9542 (diff) | |
| download | drakx-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.pm | 2 |
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}); } |