help cperl colorization

1 files changed, 1 insertions, 1 deletions

diff --git a/draklive b/draklive
index da6aec1..d19baf8 100755
--- a/draklive
+++ b/draklive
@@ -621,7 +621,7 @@ a
 1
 w
 EOF
-    close($fdisk) or die "unable to run fdisk\n" . ($! ? "Error closing fdisk pipe: $!" : "Exit status $? from fdisk");
+    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+)/;