add more error messages about fdisk

1 files changed, 1 insertions, 1 deletions

diff --git a/draklive b/draklive
index e625688..da6aec1 100755
--- a/draklive
+++ b/draklive
@@ -621,7 +621,7 @@ a
 1
 w
 EOF
-    close($fdisk) or die "unable to run fdisk\n";
+    close($fdisk) or die "unable to run fdisk\n" . ($! ? "Error closing fdisk pipe: $!" : "Exit status $? from fdisk");
 
     my ($part_start, $part_nb_sectors) = run_program::get_stdout("sfdisk -d $dest") =~ /start=\s*(\d+),\s*size=\s*(\d+)/;