From b68230d7fbe69a5acdec30f31ac99eab8fdd6bce Mon Sep 17 00:00:00 2001
From: Angelo Naselli <anaselli@linux.it>
Date: Tue, 17 Feb 2015 23:19:37 +0100
Subject: return instead of exit should be enough

---
 lib/AdminPanel/Module/Firewall.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/AdminPanel/Module/Firewall.pm b/lib/AdminPanel/Module/Firewall.pm
index cdadb38..8158dc2 100644
--- a/lib/AdminPanel/Module/Firewall.pm
+++ b/lib/AdminPanel/Module/Firewall.pm
@@ -548,7 +548,7 @@ Please select which network activities should be watched."),
         } @l,
         ]);
 
-    exit() if($retval == 0);
+    return if($retval == 0);
 
     for my $server(@{$self->wdg_ifw()})
     {
@@ -750,7 +750,7 @@ sub choose_allowed_services {
         (map { { text => $_->{name}, val => \$_->{on}, type => 'bool', disabled => sub { $disabled }, id => $_->{id} } } @l),
     ];
 
-    exit() if(!$self->ask_AllowedServices($dialog_data, $items));
+    return if(!$self->ask_AllowedServices($dialog_data, $items));
 
     for my $server(@{$self->wdg_servers()})
     {
-- 
cgit v1.2.1