summaryrefslogtreecommitdiffstats
path: root/perl-install/fs.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/fs.pm')
-rw-r--r--perl-install/fs.pm8
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/fs.pm b/perl-install/fs.pm
index 962e77ab0..d12abc368 100644
--- a/perl-install/fs.pm
+++ b/perl-install/fs.pm
@@ -148,10 +148,10 @@ sub write_fstab {
"$dir$_->{device}";
};
- mkdir("$prefix/" . ($_->{mntpoint} || $_->{real_mntpoint}), 0755);
- my $mntpoint = loopback::carryRootLoopback($_) ? '/initrd/loopfs' : $_->{mntpoint};
- $mntpoint ||= ${{ '/tmp/hdimage' => '/mnt/hd' }}{$_->{real_mntpoint}}; #- convert for inaccessible partition at install.
-
+ my $real_mntpoint = $_->{mntpoint} || ${{ '/tmp/hdimage' => '/mnt/hd' }}{$_->{real_mntpoint}};
+ mkdir("$prefix/$real_mntpoint", 0755);
+ my $mntpoint = loopback::carryRootLoopback($_) ? '/initrd/loopfs' : $real_mntpoint;
+
my ($freq, $passno) =
exists $_->{freq} ?
($_->{freq}, $_->{passno}) :