diff options
Diffstat (limited to 'perl-install/loopback.pm')
| -rw-r--r-- | perl-install/loopback.pm | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/perl-install/loopback.pm b/perl-install/loopback.pm index 89b0072b9..73a00f94a 100644 --- a/perl-install/loopback.pm +++ b/perl-install/loopback.pm @@ -9,7 +9,6 @@ use strict; use MDK::Common::System; use common; use partition_table qw(:types); -use commands; use fs; use fsedit; use log; @@ -49,11 +48,11 @@ sub carryRootCreateSymlink { my $mntpoint = "$prefix$part->{mntpoint}"; unless (-e $mntpoint) { - eval { commands::mkdir_("-p", dirname($mntpoint)) }; + eval { mkdir_p(dirname($mntpoint)) }; #- do non-relative link for install, should be changed to relative link before rebooting symlink "/initrd/loopfs", $mntpoint; - commands::mkdir_("-p", "/initrd/loopfs/lnx4win/boot"); + mkdir_p("/initrd/loopfs/lnx4win/boot"); symlink "/initrd/loopfs/lnx4win/boot", "$prefix/boot"; } #- indicate kernel to keep initrd @@ -73,7 +72,7 @@ sub create { my $f = $part->{device} = "$prefix$part->{loopback_device}{mntpoint}$part->{loopback_file}"; return if -e $f; - eval { commands::mkdir_("-p", dirname($f)) }; + eval { mkdir_p(dirname($f)) }; log::l("creating loopback file $f ($part->{size} sectors)"); @@ -117,8 +116,8 @@ sub save_boot { $loop_boot or return; my @files = glob_("$prefix/boot/*"); - commands::cp("-f", @files, $loop_boot) if @files; - commands::rm("-rf", "$prefix/boot"); + cp_af(@files, $loop_boot) if @files; + rm_rf("$prefix/boot"); symlink $loop_boot, "$prefix/boot"; } |