From 6feac67676366604c04b85d6644ac5cd54bd0b35 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 22 Mar 2007 18:39:26 +0000 Subject: perl_checker cleanups --- Rpmdrake/gui.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Rpmdrake/gui.pm b/Rpmdrake/gui.pm index 3d0db34b..57c2bd33 100644 --- a/Rpmdrake/gui.pm +++ b/Rpmdrake/gui.pm @@ -203,7 +203,7 @@ sub set_node_state_tree { $node_state{$parent_str} ne $new_state and set_node_state_tree($parent, $new_state); } - set_node_state_flat($iter, $state, $model) + set_node_state_flat($iter, $state, $model); #$node_state{$iter_str} = $state; #- cache for efficiency } else { } @@ -390,7 +390,7 @@ sub ask_browse_tree_given_widgets_for_rpmdrake { $common->{display_info}($model->get($iter, $pkg_columns{text})); }); ($w->{detail_list}->get_column(0)->get_cell_renderers)[0]->signal_connect(toggled => sub { - my ($cell, $path) = @_; #text_ + my ($_cell, $path) = @_; #text_ my $iter = $w->{detail_list_model}->get_iter_from_string($path); $fast_toggle->($iter) if $iter; 1; -- cgit v1.2.1