perl_checker cleanups

1 files changed, 6 insertions, 6 deletions

diff --git a/control-center b/control-center
index 4e2d96f0..f2771b29 100755
--- a/control-center
+++ b/control-center
@@ -44,7 +44,7 @@ my $themes_dir = "$mcc_dir/themes/";
 
 my (%tool_pids, %tool_feedback);
 
-my ($version, $conffile, $class_install) = ( `cat /etc/mandrakelinux-release`=~/\b(\d+\.{1}.+\))/, "/etc/mcc.conf", "/etc/sysconfig/system" );
+my ($version, $conffile, $class_install) = (`cat /etc/mandrakelinux-release` =~ /\b(\d+\.{1}.+\))/, "/etc/mcc.conf", "/etc/sysconfig/system");
 my ($default_heigth, $default_width) = (523, 720);
 
 
@@ -882,7 +882,7 @@ my @tree =
                    long_description => $long_text,
                    icon => "diskdrake_$type",
                   };
-                $full_name,
+                $full_name;
             } $scan->();
         } do {
             my %cdroms_by_type;
@@ -904,7 +904,7 @@ my @tree =
                [ 'zip', \&detect_devices::zips, N("ZIP drive"),
                  N("Set where your ZIP drive is mounted"),
                ],
-	      ),
+	      );
         }),
         "NFS mount points",,
         "Samba mount points",
@@ -923,7 +923,7 @@ my @tree =
 
      [ N("Boot"), 'boot-mdk',
        [
-        if_(0 && detect_devices::floppies, "Boot Disk"),
+        #if_(detect_devices::floppies, "Boot Disk"), # kernel is too big
         "Auto login Config",
         "Boot Config",
         "Boot Theme",
@@ -1276,7 +1276,7 @@ sub really_refresh_tree {
 sub refresh_tree {
     my ($mode) = @_;
     if ($mode && $page_count) {
-        $notebook_global->window && $notebook_global->window->freeze_updates;
+        $notebook_global->window and $notebook_global->window->freeze_updates;
         $notebook_global->remove_page(-1) foreach 0..$page_count-1;
         $page_count = 0;
     }
@@ -1462,7 +1462,7 @@ sub group_by {
     my $nb = shift @_;
     my @l;
     for (my $i = 0; $i < @_; $i += $nb) {
-        push @l, [ map { $_[$_] } $i..$i+$nb-1  ], # $_[$i], $_[$i+1], $_[$i+2] ];
+        push @l, [ map { $_[$_] } $i..$i+$nb-1  ]; # $_[$i], $_[$i+1], $_[$i+2] ];
     }
     @l;
 }