From 9d092c6883d1209682d7f9d42755ebced5881009 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Fri, 7 Nov 2008 14:47:24 +0000
Subject: help cperl colorization

---
 draklive | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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+)/;
 
-- 
cgit v1.2.1