From f96ef1a39ea6510f4ab48fb49a1e0de97ed561ec Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Mon, 27 Jan 2014 06:18:41 +0100
Subject: perl_checker cleanups

---
 lib/network/shorewall.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'lib')

diff --git a/lib/network/shorewall.pm b/lib/network/shorewall.pm
index b40e7ff..1c8b4f5 100644
--- a/lib/network/shorewall.pm
+++ b/lib/network/shorewall.pm
@@ -182,8 +182,8 @@ What do you want to do?"),
     };
 
     set_config_file('zones', $ver,
-                    if_($has_loc_zone, [ 'loc', 'ipv'. ($ver ? $ver : '4' ) ]),
-                    [ 'net', 'ipv'. ($ver ? $ver : '4' ) ],
+                    if_($has_loc_zone, [ 'loc', 'ipv' . ($ver || '4') ]),
+                    [ 'net', 'ipv' . ($ver || '4') ],
                     [ 'fw', 'firewall' ],
                 );
     set_config_file('interfaces',  $ver,
-- 
cgit v1.2.1