From 856e7d6ea668ba70d4bcea9876d991c634400747 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Sun, 16 Sep 2007 23:09:00 +0000
Subject: make modules::*::get_above return a list, and thus fix loading of
 tifm_sd module during install

---
 perl-install/modules/modprobe_conf.pm | 2 +-
 perl-install/modules/modules_conf.pm  | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install/modules')

diff --git a/perl-install/modules/modprobe_conf.pm b/perl-install/modules/modprobe_conf.pm
index b2a57717d..76f3fbee0 100644
--- a/perl-install/modules/modprobe_conf.pm
+++ b/perl-install/modules/modprobe_conf.pm
@@ -21,7 +21,7 @@ sub get_above {
 
     my (undef, $after) = parse_non_virtual($module, $conf->{$module}{install}) or return;
     my ($l, $_other_cmds) = partition_modprobes($after);
-    join(' ', @$l);
+    @$l;
 }
 sub set_above {
     my ($conf, $module, $o_modules) = @_;
diff --git a/perl-install/modules/modules_conf.pm b/perl-install/modules/modules_conf.pm
index afcf08b35..2bfc2ce65 100644
--- a/perl-install/modules/modules_conf.pm
+++ b/perl-install/modules/modules_conf.pm
@@ -19,7 +19,7 @@ sub get_above {
     my ($conf, $module) = @_;
     $module = $conf->mapping($module);
 
-    $conf->{$module} && $conf->{$module}{above};
+    $conf->{$module} && split(' ', $conf->{$module}{above});
 }
 sub set_above {
     my ($conf, $module, $o_modules) = @_;
-- 
cgit v1.2.1