diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/diskdrake/interactive.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/diskdrake/interactive.pm b/perl-install/diskdrake/interactive.pm index 60ce633ad..9a320c0c6 100644 --- a/perl-install/diskdrake/interactive.pm +++ b/perl-install/diskdrake/interactive.pm @@ -1088,11 +1088,11 @@ sub migrate_files { my @l = glob_("$part->{mntpoint}/*"); foreach (@l) { $wait->set(N("Copying %s", $_)); - system("cp", "-a", $_, $handle->{dir}); + system("cp", "-a", $_, $handle->{dir}) == 0 or die "copying failed"; } foreach (@l) { $wait->set(N("Removing %s", $_)); - system("rm", "-rf", $_); + system("rm", "-rf", $_) == 0 or die "removing files failed"; } } |