summaryrefslogtreecommitdiffstats
path: root/perl-install/fs.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-01-05 20:55:20 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-01-05 20:55:20 +0000
commitfd6b89e3d9cb165829a25cd196b5340104a4e440 (patch)
treec14cf6f6d8be04fa8cdfe65fc8e68411b399e757 /perl-install/fs.pm
parent49a8229d69ae7b82dff1417857285f5f0a73f43f (diff)
downloaddrakx-backup-do-not-use-fd6b89e3d9cb165829a25cd196b5340104a4e440.tar
drakx-backup-do-not-use-fd6b89e3d9cb165829a25cd196b5340104a4e440.tar.gz
drakx-backup-do-not-use-fd6b89e3d9cb165829a25cd196b5340104a4e440.tar.bz2
drakx-backup-do-not-use-fd6b89e3d9cb165829a25cd196b5340104a4e440.tar.xz
drakx-backup-do-not-use-fd6b89e3d9cb165829a25cd196b5340104a4e440.zip
no_comment
Diffstat (limited to 'perl-install/fs.pm')
-rw-r--r--perl-install/fs.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/fs.pm b/perl-install/fs.pm
index 20cbf3798..5493d3dbe 100644
--- a/perl-install/fs.pm
+++ b/perl-install/fs.pm
@@ -164,12 +164,12 @@ sub umount_part($;$) {
$part->{isMounted} = 0;
}
-sub mount_all($;$) {
- my ($fstab, $prefix) = @_;
+sub mount_all($;$$) {
+ my ($fstab, $prefix, $hd_dev) = @_; #- hd_dev is the device used for hd install
log::l("mounting all filesystems");
- my ($hd_dev) = cat_("/proc/mounts") =~ m|/tmp/(\S+)\s+/tmp/hdimage| unless $::isStandalone;
+ $hd_dev ||= cat_("/proc/mounts") =~ m|/tmp/(\S+)\s+/tmp/hdimage| unless $::isStandalone;
#- order mount by alphabetical ordre, that way / < /home < /home/httpd...
foreach (grep { $_->{mntpoint} } sort { ($a->{mntpoint} || '') cmp ($b->{mntpoint} || '') } @$fstab) {