diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2014-06-27 20:24:17 +0200 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2014-06-27 20:24:17 +0200 |
| commit | 0a03a9c7d53457179425eadb6320c26923cd40b6 (patch) | |
| tree | 9d92f1ade52e51b270cd7f2562ba004c083d9e70 /rpmdrake | |
| parent | 55697597b09ca063c954660cef93ba49d4886b2c (diff) | |
| download | rpmdrake-0a03a9c7d53457179425eadb6320c26923cd40b6.tar rpmdrake-0a03a9c7d53457179425eadb6320c26923cd40b6.tar.gz rpmdrake-0a03a9c7d53457179425eadb6320c26923cd40b6.tar.bz2 rpmdrake-0a03a9c7d53457179425eadb6320c26923cd40b6.tar.xz rpmdrake-0a03a9c7d53457179425eadb6320c26923cd40b6.zip | |
perl_checker cleanups
Diffstat (limited to 'rpmdrake')
| -rwxr-xr-x | rpmdrake | 22 |
1 files changed, 11 insertions, 11 deletions
@@ -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') |