summaryrefslogtreecommitdiffstats
path: root/perl-install/loopback.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/loopback.pm')
-rw-r--r--perl-install/loopback.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/loopback.pm b/perl-install/loopback.pm
index 817038e36..6129e6c6d 100644
--- a/perl-install/loopback.pm
+++ b/perl-install/loopback.pm
@@ -56,7 +56,7 @@ sub carryRootCreateSymlink {
symlink "/initrd/loopfs/lnx4win/boot", "$prefix/boot";
}
#- indicate kernel to keep initrd
- mkdir "$prefix/initrd", 0755;
+ mkdir_p("$prefix/initrd");
}
@@ -108,7 +108,7 @@ sub verifFile {
sub prepare_boot {
my $r = readlink "$::prefix/boot";
unlink "$::prefix/boot";
- mkdir "$::prefix/boot", 0755;
+ mkdir_p("$::prefix/boot");
[$r, $::prefix];
}