summaryrefslogtreecommitdiffstats
path: root/perl-install/install_any.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-07-11 16:49:21 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-07-11 16:49:21 +0000
commit4c2fb3914a389afd7a79bbabea1dde6968448505 (patch)
tree6a8bce94bd86081a8ea16575ac04aa8497165731 /perl-install/install_any.pm
parent7bde119e6549da24984faa80c892e2f028e10d4f (diff)
downloaddrakx-4c2fb3914a389afd7a79bbabea1dde6968448505.tar
drakx-4c2fb3914a389afd7a79bbabea1dde6968448505.tar.gz
drakx-4c2fb3914a389afd7a79bbabea1dde6968448505.tar.bz2
drakx-4c2fb3914a389afd7a79bbabea1dde6968448505.tar.xz
drakx-4c2fb3914a389afd7a79bbabea1dde6968448505.zip
no_comment
Diffstat (limited to 'perl-install/install_any.pm')
-rw-r--r--perl-install/install_any.pm2
1 files changed, 1 insertions, 1 deletions
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";