From 913f41722b6356ef409be928e18dde003d60872c Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 8 Jul 2004 07:33:11 +0000 Subject: in mergein_conf(), get the "above" value, and don't dirty "probeall" --- perl-install/modules.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/perl-install/modules.pm b/perl-install/modules.pm index dfdc52cee..7ee4280f8 100644 --- a/perl-install/modules.pm +++ b/perl-install/modules.pm @@ -294,8 +294,9 @@ sub mergein_conf_raw { my $modconfref = read_conf($file); while (my ($key, $value) = each %$modconfref) { $conf{$key}{alias} ||= $value->{alias}; + $conf{$key}{above} ||= $value->{above}; $conf{$key}{options} = $value->{options} if $value->{options}; - push @{$conf{$key}{probeall} ||= []}, deref($value->{probeall}); + push @{$conf{$key}{probeall} ||= []}, deref($value->{probeall}) if $value->{probeall}; } } sub mergein_conf() { -- cgit v1.2.1