summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2001-07-26 17:21:24 +0000
committerFrancois Pons <fpons@mandriva.com>2001-07-26 17:21:24 +0000
commit8120e178a4d493a364def51017554aabdc1a94e8 (patch)
treef93a21c548f153e92d479885bb9125fe9ba07b24 /perl-install/install_steps.pm
parentde94e0eb2b1b13578da496ceba9ede3859c929f4 (diff)
downloaddrakx-8120e178a4d493a364def51017554aabdc1a94e8.tar
drakx-8120e178a4d493a364def51017554aabdc1a94e8.tar.gz
drakx-8120e178a4d493a364def51017554aabdc1a94e8.tar.bz2
drakx-8120e178a4d493a364def51017554aabdc1a94e8.tar.xz
drakx-8120e178a4d493a364def51017554aabdc1a94e8.zip
fixed some silly typo and tiny bugs.
Diffstat (limited to 'perl-install/install_steps.pm')
-rw-r--r--perl-install/install_steps.pm6
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;