From 84adb9036e99bc2e7560135694197b9312faa9e6 Mon Sep 17 00:00:00 2001 From: Guillaume Cottenceau Date: Thu, 29 Mar 2001 22:47:09 +0000 Subject: support more than one boot kernel :-) --- perl-install/modules.pm | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'perl-install/modules.pm') diff --git a/perl-install/modules.pm b/perl-install/modules.pm index df5592fbc..b2aa1ae58 100644 --- a/perl-install/modules.pm +++ b/perl-install/modules.pm @@ -525,7 +525,11 @@ sub unload { sub load_raw { my @l = map { my ($i, @i) = @$_; [ $i, \@i ] } grep { $_->[0] !~ /ignore/ } @_; - my $cz = "/lib/modules" . (arch() eq 'sparc64' && "64") . ".cz"; -e $cz or $cz .= "2"; + my $cz = "/lib/modules" . (arch() eq 'sparc64' && "64") . ".cz" . c::kernel_version(); + if (!-e $cz) { + unlink $_ foreach glob_("/lib/modules*.cz*"); + install_any::getAndSaveFile("Mandrake/mdkinst$cz", $cz) or die "failed to get modules $cz: $!"; + } eval { require packdrake; my $packer = new packdrake($cz); @@ -728,7 +732,7 @@ sub configure_pcmcia { }; #- run cardmgr in foreground while it is configuring the card. - run_program::run("cardmgr", "-f", "-m" ,"/modules"); + run_program::run("cardmgr" . c::kernel_version(), "-f", "-m" ,"/modules"); sleep(3); #- make sure to be aware of loaded module by cardmgr. -- cgit v1.2.1