perl_checker fixes

1 files changed, 4 insertions, 4 deletions

diff --git a/control-center b/control-center
index c7b0f4da..541f6ac7 100755
--- a/control-center
+++ b/control-center
@@ -267,7 +267,7 @@ my @tree =
                 [ $id, $icon ];
          } (# [ id, wizard file name, icon, description ]
             [ "Local Admin", 'XFdrake-mdk', '--direct', -e "/usr/bin/webmin" ? N("Configure the local machine via web interface") : N("You don't seem to have webmin intalled. Local config is disabled") ],
-            [ "Remote Admin", 'drakconnect-mdk', '--link', N("Click here if you want to configure a remote box via Web interface") ] )
+            [ "Remote Admin", 'drakconnect-mdk', '--link', N("Click here if you want to configure a remote box via Web interface") ])
           )
             ]
            ]),
@@ -390,7 +390,7 @@ my @menu_items = (
                     }, undef, '<Item>' ],
                   
                   [ $shared_translations{profiles} . $shared_translations{delete}, undef, sub {
-                        return unless $done || $netcnx->{PROFILE} eq "default";
+                        return if !$done && $netcnx->{PROFILE} ne "default";
                         my $prof = $netcnx->{PROFILE};
                         $netcnx->{PROFILE} = "default";
                         network::netconnect::set_profile($netcnx);
@@ -430,7 +430,7 @@ sub enable_profile_entry {
 
 
 # update profiles list
-sub update_profiles() {
+sub update_profiles {
     my ($removing) = @_;
     my $done;
     $factory->delete_item(get_path("<main>", $shared_translations{profiles} . profile2menu($_))) foreach @profiles;
@@ -703,7 +703,7 @@ foreach (@tree) {
                                                                                      'background_stipple_set' => 0 } ] ])
                                                       )
                                              );
-                       $tv->set_events([  ]);
+                       $tv->set_events([]);
                        $event_box->set_events([ 'enter_notify_mask', 'leave_notify_mask', 'button_press_mask', 'button_release_mask' ]);
                        # FIXME: do ->set_pixbuf() on {enter,leave}_events
                        $event_box->signal_connect(realize => $hand_cursor);