From 9602001c7823079a8e8ca0e737a8fe2f6c0db0d2 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 4 Jul 2002 22:25:15 +0000
Subject: adapt to new modules.pm

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

(limited to 'perl-install/bootloader.pm')

diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index a5b7638d3..df290424d 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -69,7 +69,7 @@ sub mkinitrd($$$) {
 sub mkbootdisk($$$;$) {
     my ($prefix, $kernelVersion, $dev, $append) = @_;
 
-    modules::load_multi(arch() =~ /sparc/ ? 'romfs' : (), 'loop');
+    modules::load(if_(arch() =~ /sparc/, 'romfs'), 'loop');
     my @l = qw(mkbootdisk --noprompt); 
     push @l, "--appendargs", $append if $append;
     eval { modules::load('vfat') };
-- 
cgit v1.2.1