perl_checker cleanups

1 files changed, 11 insertions, 11 deletions

diff --git a/rpmdrake b/rpmdrake
index c05b1f0c..5d9a2d79 100755
--- a/rpmdrake
+++ b/rpmdrake
@@ -249,7 +249,7 @@ sub reset_selection {
     $tree_selection->signal_emit('changed');
 }
 
-sub show_about_dlg {
+sub show_about_dlg() {
     my $license = formatAlaTeX(translate($::license));
     $license =~ s/\n/\n\n/sg; # nicer formatting
     my $w = gtknew('AboutDialog', name => N("Rpmdrake"),
@@ -623,7 +623,7 @@ sub run_treeview_dialog {
 		toggle_actions => [
 	    [ 'Auto_select', undef, N("_Select dependencies without asking"), undef, undef,
               sub {
-                  my $box = $check_boxes{'Auto_select'};
+                  my $box = $check_boxes{Auto_select};
                   $auto_select_opt->[0] = $box->get_active;
                   $::rpmdrake_options{auto} = $box->get_active;
                   $urpm->{options}{auto} = $box->get_active;
@@ -631,7 +631,7 @@ sub run_treeview_dialog {
 	    [ 'Clean_Cache', undef, N("Clear download cache after successful install"), undef, undef,
               sub {
                   $clean_cache->[0] = 
-                          $check_boxes{'Clean_Cache'}->get_active;
+                          $check_boxes{Clean_Cache}->get_active;
                   $::noclean = !$clean_cache->[0];
               } ],
 
@@ -640,13 +640,13 @@ sub run_treeview_dialog {
 	    } ],
 
 	    [ 'Compute_updates_on_startup', undef, N("_Compute updates on startup"), undef, undef, sub {
-                $compute_updates->[0] = $check_boxes{'Compute_updates_on_startup'}->get_active;
+                $compute_updates->[0] = $check_boxes{Compute_updates_on_startup}->get_active;
 	    } ],
 	    [ 'NVR_search', undef, N("Search in _full package names"), undef, undef, sub {
-                $NVR_searches->[0] = $check_boxes{'NVR_search'}->get_active;
+                $NVR_searches->[0] = $check_boxes{NVR_search}->get_active;
 	    } ],
 	    [ 'Use_RE_in_searches', undef, N("Use _regular expressions in searches"), undef, undef, sub {
-                $use_regexp->[0] = $check_boxes{'Use_RE_in_searches'}->get_active;
+                $use_regexp->[0] = $check_boxes{Use_RE_in_searches}->get_active;
 	    } ],
 		],
 		string =>
@@ -698,11 +698,11 @@ qq(
 	    'Compute_updates_on_startup', 'Use_RE_in_searches');
 
     if (!$>) {
-        $check_boxes{'Use_RE_in_searches'}->set_active($use_regexp->[0]);
-        $check_boxes{'NVR_search'}->set_active($NVR_searches->[0]);
-        $check_boxes{'Auto_select'}->set_active($auto_select_opt->[0] || '');
-        $check_boxes{'Compute_updates_on_startup'}->set_active($compute_updates->[0] || '');
-        $check_boxes{'Clean_Cache'}->set_active($clean_cache->[0]);
+        $check_boxes{Use_RE_in_searches}->set_active($use_regexp->[0]);
+        $check_boxes{NVR_search}->set_active($NVR_searches->[0]);
+        $check_boxes{Auto_select}->set_active($auto_select_opt->[0] || '');
+        $check_boxes{Compute_updates_on_startup}->set_active($compute_updates->[0] || '');
+        $check_boxes{Clean_Cache}->set_active($clean_cache->[0]);
     }
 
     $checkbox_show_autoselect = $ui->get_widget('/MenuBar/OptionsMenu/Auto_select')