summaryrefslogtreecommitdiffstats
path: root/perl-install/modules.pm
diff options
context:
space:
mode:
authorGuillaume Cottenceau <gc@mandriva.com>2001-03-29 22:47:09 +0000
committerGuillaume Cottenceau <gc@mandriva.com>2001-03-29 22:47:09 +0000
commit84adb9036e99bc2e7560135694197b9312faa9e6 (patch)
treedfdc79ddfc972f2167c67ff96af51fbec5a7518c /perl-install/modules.pm
parent094971eecb7a5df84b325de8c6ae46e88fc1f0ea (diff)
downloaddrakx-84adb9036e99bc2e7560135694197b9312faa9e6.tar
drakx-84adb9036e99bc2e7560135694197b9312faa9e6.tar.gz
drakx-84adb9036e99bc2e7560135694197b9312faa9e6.tar.bz2
drakx-84adb9036e99bc2e7560135694197b9312faa9e6.tar.xz
drakx-84adb9036e99bc2e7560135694197b9312faa9e6.zip
support more than one boot kernel :-)
Diffstat (limited to 'perl-install/modules.pm')
-rw-r--r--perl-install/modules.pm8
1 files changed, 6 insertions, 2 deletions
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.