diff options
Diffstat (limited to 'perl-install/fs.pm')
| -rw-r--r-- | perl-install/fs.pm | 3 |
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); |