diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2003-02-23 00:16:25 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2003-02-23 00:16:25 +0000 |
| commit | 6ef45c26924167a3609b4aa56234f0d4d7a687ed (patch) | |
| tree | 9780be6ecad6f5fde27a25bf5ee997e5248efc09 /perl-install/diskdrake | |
| parent | 576f95164e566ae9daad807ca0b2d6071388df66 (diff) | |
| download | drakx-6ef45c26924167a3609b4aa56234f0d4d7a687ed.tar drakx-6ef45c26924167a3609b4aa56234f0d4d7a687ed.tar.gz drakx-6ef45c26924167a3609b4aa56234f0d4d7a687ed.tar.bz2 drakx-6ef45c26924167a3609b4aa56234f0d4d7a687ed.tar.xz drakx-6ef45c26924167a3609b4aa56234f0d4d7a687ed.zip | |
(migrate_files): check return values (fixes bug #2170)
Diffstat (limited to 'perl-install/diskdrake')
| -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"; } } |