perl_checker cleanups

1 files changed, 5 insertions, 5 deletions

diff --git a/bin/net_applet b/bin/net_applet
index 2873679..43c692c 100755
--- a/bin/net_applet
+++ b/bin/net_applet
@@ -151,7 +151,7 @@ my %actions = (
     },
     'drakvpn' => {
         name => N("Manage VPN connections"),
-	launch => sub { run_program::raw({ detach => 1 }, '/usr/sbin/drakvpn'); },
+	launch => sub { run_program::raw({ detach => 1 }, '/usr/sbin/drakvpn') },
     },
     'confNetwork' => {
 	name => N("Configure Network"),
@@ -162,7 +162,7 @@ my %actions = (
         choices => sub { N("Auto-detect"), sort keys %{$net->{ifcfg}} },
         choice_selected => sub {
 	    $watched_interface ? $_[0] eq $watched_interface :
-	        $_[0] eq N("Auto-detect")
+	        $_[0] eq N("Auto-detect");
 	},
         launch => sub {
             $watched_interface = $_[0] eq N("Auto-detect") ? undef : $_[0];
@@ -203,14 +203,14 @@ my %actions = (
         name => N("VPN connection"),
         header => "drakvpn",
         choices => sub {
-	    map { $_->get_configured_connections } network::vpn::list_types
+	    map { $_->get_configured_connections } network::vpn::list_types;
         },
         allow_single_choice => 1,
         format_choice => \&network::vpn::get_label,
         choice_selected => sub { $_[0]->is_started },
         launch => sub {
 	    require interactive; $_[0]->is_started ?
-	        $_[0]->stop : $_[0]->start(interactive->vnew)
+	        $_[0]->stop : $_[0]->start(interactive->vnew);
 	},
     },
     'help' => {
@@ -275,7 +275,7 @@ $SIG{HUP} = sub {
 };
 $SIG{USR1} = sub {
     # clear all ifw notifications
-    my @packets = eval { $network::net_applet::ifw->get_reports };
+    eval { $network::net_applet::ifw->get_reports };
 };
 
 # do not create zombies (#20552)