From 5c0074c71b6bc1ea7e8a92d6b5d638229881feab Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Mon, 25 Nov 2013 15:57:58 +0100
Subject: simplify

---
 rpmdrake | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'rpmdrake')

diff --git a/rpmdrake b/rpmdrake
index 59c4b9fc..ef0149b3 100755
--- a/rpmdrake
+++ b/rpmdrake
@@ -519,7 +519,8 @@ sub run_treeview_dialog {
     );
 
     my $view_callback = sub {
-            my ($val) = @_;
+            my (undef, $current) = @_;
+            my $val = $current->get_name;
             return if $val eq $old_value; # workarounding gtk+ sending us sometimes twice events
             $old_value = $val;
             return if $mode->[0] eq $val;
@@ -586,8 +587,8 @@ sub run_treeview_dialog {
 
     my @radio_labels = qw(flat by_group by_leaves by_presence by_selection by_size by_source);
     my @radios = map {
-      my $val = $_;
-      [ $_, undef, $modes{$_}, undef, undef, sub { $view_callback->($val) } ];
+      [ $_, undef, $modes{$_}, undef, undef, $view_callback ];
+
   } @radio_labels;
 
     my $ui = gtknew('UIManager',
-- 
cgit v1.2.1