From b0e41e74291b4f03c8c147ac3da0448a0d8a538f Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 9 Dec 2004 16:50:43 +0000 Subject: commit warly's fix in 10.1 branch --- perl-install/install_steps.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm index b27a56382..df6c9e28e 100644 --- a/perl-install/install_steps.pm +++ b/perl-install/install_steps.pm @@ -631,11 +631,12 @@ sub updateModulesFromFloppy { my @dest_files = map { chomp_($_) } run_program::rooted_get_stdout($o->{prefix}, 'find', '/lib/modules'); foreach my $s (@src_files) { log::l("found updatable module $s"); - my ($sfile, $sext) = $s =~ m!([^/\.]*\.k?o)(?:\.gz|\.bz2)?$!; + my ($sfile, $sext) = $s =~ m!([^/\.]*\.k?o)(\.gz|\.bz2)?$!; my $qsfile = quotemeta $sfile; my $qsext = quotemeta $sext; foreach my $target (@dest_files) { $target =~ /$qsfile/ or next; + $target = "$o->{prefix}/$target"; eval { cp_af($s, $target) }; if ($@) { log::l("updating module $target by $s failed: $@"); -- cgit v1.2.1