summaryrefslogtreecommitdiffstats
path: root/perl-install/fs.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-08-26 12:11:34 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-08-26 12:11:34 +0000
commit1916066643be8b9e94ef49a51807508e394b1f90 (patch)
treef758a82957ef30a40525cf1fbe81ea34440b8a9d /perl-install/fs.pm
parentfdfdc5b65dd6d1737d263742b9b2a378f5315446 (diff)
downloaddrakx-1916066643be8b9e94ef49a51807508e394b1f90.tar
drakx-1916066643be8b9e94ef49a51807508e394b1f90.tar.gz
drakx-1916066643be8b9e94ef49a51807508e394b1f90.tar.bz2
drakx-1916066643be8b9e94ef49a51807508e394b1f90.tar.xz
drakx-1916066643be8b9e94ef49a51807508e394b1f90.zip
(prepare_write_fstab): use mkdir_p instead of mkdir to handle mount points like /mnt/foo/bar (bug reported by David Eastcott)
Diffstat (limited to 'perl-install/fs.pm')
-rw-r--r--perl-install/fs.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/fs.pm b/perl-install/fs.pm
index 9a2a5a950..ab345cf56 100644
--- a/perl-install/fs.pm
+++ b/perl-install/fs.pm
@@ -214,7 +214,7 @@ sub prepare_write_fstab {
};
my $real_mntpoint = $_->{mntpoint} || ${{ '/tmp/hdimage' => '/mnt/hd' }}{$_->{real_mntpoint}};
- mkdir("$prefix$real_mntpoint", 0755) if $real_mntpoint =~ m|^/|;
+ mkdir_p("$prefix$real_mntpoint", 0755) if $real_mntpoint =~ m|^/|;
my $mntpoint = loopback::carryRootLoopback($_) ? '/initrd/loopfs' : $real_mntpoint;
my ($freq, $passno) =