From 615387d61d38fb39de71478f0168efb374d62aca Mon Sep 17 00:00:00 2001
From: Guillaume Cottenceau <gc@mandriva.com>
Date: Mon, 3 Nov 2003 18:40:36 +0000
Subject: perl checker

---
 perl-install/modules.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install')

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});
     }
-- 
cgit v1.2.1