From 4c2fb3914a389afd7a79bbabea1dde6968448505 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 11 Jul 2000 16:49:21 +0000
Subject: no_comment

---
 perl-install/install_any.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 1ec391071..5909636f7 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -504,7 +504,7 @@ sub killCardServices {
 }
 
 sub hdInstallPath() {
-    cat_("/proc/mounts") =~ m|/tmp/(\S+)\s+/tmp/hdimage| or return;
+    cat_("/proc/mounts") =~ m|/\w+/(\S+)\s+/tmp/hdimage| or return;
     my ($part) = grep { $_->{device} eq $1 } @{$::o->{fstab}};    
     $part->{mntpoint} or grep { $_->{mntpoint} eq "/mnt/hd" } @{$::o->{fstab}} and return;
     $part->{mntpoint} ||= "/mnt/hd";
-- 
cgit v1.2.1