From 6ef45c26924167a3609b4aa56234f0d4d7a687ed Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Sun, 23 Feb 2003 00:16:25 +0000 Subject: (migrate_files): check return values (fixes bug #2170) --- perl-install/diskdrake/interactive.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/diskdrake') 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"; } } -- cgit v1.2.1