From 63ea83138af4b3fc2bee69749a9e45d7b7402027 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 9 Dec 2004 16:51:12 +0000
Subject: commit warly's fix in HEAD

---
 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 104c8bd19..53aa21a2b 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