From 1b791cfb9d9ca2efdd1ede0cf3b8f4b9148ab462 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 14 Nov 2003 15:19:49 +0000 Subject: test the presence of kernel modules .cz'ed or not --- perl-install/install2.pm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'perl-install') diff --git a/perl-install/install2.pm b/perl-install/install2.pm index 4d0f1ab54..d898690df 100644 --- a/perl-install/install2.pm +++ b/perl-install/install2.pm @@ -115,8 +115,9 @@ sub selectMouse { sub setupSCSI { my ($clicked, $_ent_number, $auto) = @_; - if (!$::live && !$::g_auto_install && !$o->{blank} && !$::testing && !$::uml_install && !$::move) { - -s modules::cz_file() or die \N("Can't access kernel modules corresponding to your kernel (file %s is missing), this generally means your boot floppy in not in sync with the Installation medium (please create a newer boot floppy)", modules::cz_file()); + if (!$::live && !$::g_auto_install && !$o->{blank} && !$::testing && !$::uml_install) { + -d '/lib/modules/' . c::kernel_version() || + -s modules::cz_file() or die \N("Can't access kernel modules corresponding to your kernel (file %s is missing), this generally means your boot floppy in not in sync with the Installation medium (please create a newer boot floppy)", modules::cz_file()); } installStepsCall($o, $auto, 'setupSCSI', $clicked); -- cgit v1.2.1