summaryrefslogtreecommitdiffstats
path: root/perl-install/fs.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-03-09 15:23:56 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-03-09 15:23:56 +0000
commit975c4c27c0245389fedb1669bab816502f1c36f3 (patch)
treeda1eb9b0c736869fcc57bef4b7df4381ff064885 /perl-install/fs.pm
parent29dbc8c49c643d5d18f64907ca9d5104ad9cf08e (diff)
downloaddrakx-975c4c27c0245389fedb1669bab816502f1c36f3.tar
drakx-975c4c27c0245389fedb1669bab816502f1c36f3.tar.gz
drakx-975c4c27c0245389fedb1669bab816502f1c36f3.tar.bz2
drakx-975c4c27c0245389fedb1669bab816502f1c36f3.tar.xz
drakx-975c4c27c0245389fedb1669bab816502f1c36f3.zip
no_comment
Diffstat (limited to 'perl-install/fs.pm')
-rw-r--r--perl-install/fs.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/fs.pm b/perl-install/fs.pm
index 661564ecd..b5d80010e 100644
--- a/perl-install/fs.pm
+++ b/perl-install/fs.pm
@@ -173,8 +173,9 @@ sub mount_part($;$$) {
$part->{isMounted} and return;
unless ($::testing) {
+ local $part->{device} = devices::set_loop(loopback::file($part)) || die if isLoopback($part);
if (isSwap($part)) {
- swap::swapon($part->{device});
+ swap::swapon($part->{device});
} else {
$part->{mntpoint} or die "missing mount point";
mount(devices::make($part->{device}), ($prefix || '') . $part->{mntpoint}, type2fs($part->{type}), $rdonly);