From 975c4c27c0245389fedb1669bab816502f1c36f3 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 9 Mar 2000 15:23:56 +0000
Subject: no_comment

---
 perl-install/fs.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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

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);
-- 
cgit v1.2.1