From cd5441ec7937703904700dddf25afdcc80a66661 Mon Sep 17 00:00:00 2001
From: Shane Kearns <shane.kearns@accenture.com>
Date: Tue, 14 Sep 2010 16:32:02 +0100
Subject: Fix compile error with active perl 5.8.9

Reviewed-by: Jani Hautakangas
---
 bin/createpackage.pl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/bin/createpackage.pl b/bin/createpackage.pl
index 238eae3..361b32d 100755
--- a/bin/createpackage.pl
+++ b/bin/createpackage.pl
@@ -321,10 +321,11 @@ if($stub) {
 
     # Create SIS.
     # The 'and' is because system uses 0 to indicate success.
-    if($ENV{EPOCROOT})
+    if($ENV{EPOCROOT}) {
         system ("$ENV{EPOCROOT}epoc32/tools/makesis $pkgoutput $unsigned_sis_name") and die ("makesis failed");
-    else
+    } else {
         system ("makesis $pkgoutput $unsigned_sis_name") and die ("makesis failed");
+    }
     print("\n");
 
     my $targetInsert = "";
-- 
cgit v0.12