display error message and exit if install (files copy) failed (#22764)

1 files changed, 7 insertions, 1 deletions

diff --git a/draklive-install b/draklive-install
index a97e4bf..85fd437 100755
--- a/draklive-install
+++ b/draklive-install
@@ -150,7 +150,7 @@ sub copy_root {
     my ($in, $copy_source) = @_;
     my $total = get_total_size($in, $copy_source);
 
-    my ($_wait, $update_progress) = copying_message_with_progress_bar($in, N("Copying in progress"));
+    my ($wait, $update_progress) = copying_message_with_progress_bar($in, N("Copying in progress"));
     open(my $OUTPUT, '-|', build_copy_command($copy_source, $::prefix));
     {
         local $_;
@@ -164,6 +164,12 @@ sub copy_root {
             }
         }
     }
+    if (!close($OUTPUT)) {
+        undef $wait;
+        undef $update_progress;
+        $in->ask_warn(N("Error"), N("Unable to copy files to new root"));
+        $in->exit(1);
+    }
 }
 
 sub complete_install {