diff options
author | Francois Pons <fpons@mandriva.com> | 2001-07-26 17:21:24 +0000 |
---|---|---|
committer | Francois Pons <fpons@mandriva.com> | 2001-07-26 17:21:24 +0000 |
commit | 8120e178a4d493a364def51017554aabdc1a94e8 (patch) | |
tree | f93a21c548f153e92d479885bb9125fe9ba07b24 /perl-install/install_steps.pm | |
parent | de94e0eb2b1b13578da496ceba9ede3859c929f4 (diff) | |
download | drakx-backup-do-not-use-8120e178a4d493a364def51017554aabdc1a94e8.tar drakx-backup-do-not-use-8120e178a4d493a364def51017554aabdc1a94e8.tar.gz drakx-backup-do-not-use-8120e178a4d493a364def51017554aabdc1a94e8.tar.bz2 drakx-backup-do-not-use-8120e178a4d493a364def51017554aabdc1a94e8.tar.xz drakx-backup-do-not-use-8120e178a4d493a364def51017554aabdc1a94e8.zip |
fixed some silly typo and tiny bugs.
Diffstat (limited to 'perl-install/install_steps.pm')
-rw-r--r-- | perl-install/install_steps.pm | 6 |
1 files changed, 4 insertions, 2 deletions
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; |