From 8120e178a4d493a364def51017554aabdc1a94e8 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Thu, 26 Jul 2001 17:21:24 +0000
Subject: fixed some silly typo and tiny bugs.

---
 perl-install/install_steps.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

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

diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index fd0907f33..47c008c8e 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -523,13 +523,15 @@ sub updateModulesFromFloppy {
     my ($o) = @_;
     return if $::testing || !$o->{updatemodules};
 
-    fs::mount($o->{updatemdoules}, "/floppy", "ext2", 0);
+    fs::mount($o->{updatemodules}, "/floppy", "ext2", 0);
     foreach (glob_("$o->{prefix}/lib/modules/*")) {
 	my ($kernelVersion) = m,lib/modules/(\S*),;
+	log::l("examining updated modules for kernel $kernelVersion");
 	if (-d "/floppy/$kernelVersion") {
 	    my @src_files = glob_("/floppy/$kernelVersion/*");
-	    my @dest_files = split "\n", `find "$o->{prefix}/lib/modules`;
+	    my @dest_files = split "\n", `chroot $o->{prefix} find /lib/modules`;
 	    foreach my $s (@src_files) {
+		log::l("found updatable module $s");
 		my ($sfile, $sext) = $s =~ /([^\/\.]*\.o)(?:\.gz|\.bz2)?$/;
 		my $qsfile = quotemeta $sfile;
 		my $qsext = quotemeta $sext;
-- 
cgit v1.2.1