From 0a03a9c7d53457179425eadb6320c26923cd40b6 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Fri, 27 Jun 2014 20:24:17 +0200 Subject: perl_checker cleanups --- rpmdrake | 22 +++++++++++----------- 1 file 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') -- cgit v1.2.1