perl_checker cleanups

1 files changed, 6 insertions, 6 deletions

diff --git a/control-center b/control-center
index a25d19d7..241bc12d 100755
--- a/control-center
+++ b/control-center
@@ -44,7 +44,7 @@ my (%tool_pids, %tool_feedback);
 
 my ($version, $conffile, $class_install) = (`cat /etc/mandrakelinux-release` =~ /\b(\d+\.{1}.+\))/, "/etc/mcc.conf", "/etc/sysconfig/system");
 
-my ($rootwin_width, $rootwin_height) = gtkroot()->get_size();
+my ($rootwin_width, $rootwin_height) = gtkroot()->get_size;
 my $default_width  = $rootwin_width  <= 800 ? 720 : 800;
 my $default_height = $rootwin_height <= 480 ? 420 : $rootwin_height <= 600 ? 523 : 600;
 
@@ -96,7 +96,7 @@ $window_splash->set_title(N("Mandriva Linux Control Center"));
 $window_splash->set_position('center_always');
 $window_splash->add(gtknew('Fixed', widget_name => 'Steps',
                                   children => [
-                                          [ my $img = gtkcreate_img("splash_screen"), 0, 0 ],
+                                          [ gtkcreate_img("splash_screen"), 0, 0 ],
                                           [ gtknew('Label', text => N("Mandriva Linux Control Center")), 21, 60 ],
                                           [ gtknew('Label', text => N("Loading... Please wait")), 21, 175 ],
                                          ]),
@@ -697,9 +697,9 @@ gtkadd($window_global,
                                              gtknew('HBox', spacing => 0, children => [
                                                  1, $_,
                                                  0, gtknew('Alignment', width => 12),
-                                             ])
+                                             ]);
                                              } @buttons ]), 0, 100 ],
-                            ], right_child => gtknew('ScrolledWindow', child =>gtkset_border_width($view, 5),
+                            ], right_child => gtknew('ScrolledWindow', child => gtkset_border_width($view, 5),
                                                      no_shadow => 1, h_policy => 'never')),
                             1, gtkpack(my $emb_box = Gtk2::VBox->new(0, 0),
                                        my $wait_darea = gtkset_size_request(Gtk2::DrawingArea->new, -1, -1),
@@ -780,7 +780,7 @@ sub clean_list {
     } @$subtree;
 }
 
-sub build_list {
+sub build_list() {
     my $i;
 foreach (@tree) {
     my ($text, $icon, $help, $subtrees) = @$_;
@@ -1317,7 +1317,7 @@ sub about_mdk_cc() {
 
     my ($previous_type, $not_first_title, $not_first_block);
     my $locale = lang::read;
-    foreach my $line (grep { $_ ne "\n" && !/^#/ } cat_(top((glob("/usr/share/doc/mandriva-release-*/CREDITS"), glob("/usr/share/doc/mandriva-release-*/CREDITS.$locale->{lang}"))))) {
+    foreach my $line (grep { $_ ne "\n" && !/^#/ } cat_(top(glob("/usr/share/doc/mandriva-release-*/CREDITS"), glob("/usr/share/doc/mandriva-release-*/CREDITS.$locale->{lang}")))) {
         $line =~ s/ Limited Edition 2005 \|//;
         if (my ($type, $comment, $contributor) = split(/\|/, $line, 3)) {
             last if !$type;