From 4f667f62a6af26018d73622eb9c4ad0e7641910f Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Mon, 31 Mar 2008 09:15:50 +0000
Subject: (del_callback) fix crash while removing an item (#34413)

---
 perl-install/standalone/drakups | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/standalone/drakups b/perl-install/standalone/drakups
index 1279e5797..b350bb922 100755
--- a/perl-install/standalone/drakups
+++ b/perl-install/standalone/drakups
@@ -237,7 +237,7 @@ sub edit_callback {
 sub del_callback {
     my ($model, $list) = @_;
     my (undef, $iter) = $list->get_selection->get_selected;
-    my $removed_idx = $list->get($iter, 0); # 1st column is index
+    my $removed_idx = $model->get($iter, 0); # 1st column is index
     #@rules = grep { $_->{index} ne $removed_idx } @rules;
     #$tree->remove($iter);
     #sensitive_buttons(0);
-- 
cgit v1.2.1