aboutsummaryrefslogtreecommitdiffstats
path: root/rpmdrake.pm
diff options
context:
space:
mode:
authorGuillaume Cottenceau <gc@mandriva.com>2003-08-08 11:45:30 +0000
committerGuillaume Cottenceau <gc@mandriva.com>2003-08-08 11:45:30 +0000
commit9c463ebc5ae58555b521342d100351bed1b39971 (patch)
treee86c6aa5fa6f112174277d759ea85d7abf5ed8ac /rpmdrake.pm
parentdb9bd973f7b7a13a27e174ab4cfbc6cfc41d4e6c (diff)
downloadrpmdrake-9c463ebc5ae58555b521342d100351bed1b39971.tar
rpmdrake-9c463ebc5ae58555b521342d100351bed1b39971.tar.gz
rpmdrake-9c463ebc5ae58555b521342d100351bed1b39971.tar.bz2
rpmdrake-9c463ebc5ae58555b521342d100351bed1b39971.tar.xz
rpmdrake-9c463ebc5ae58555b521342d100351bed1b39971.zip
fix browsing for adding a security update (port gtk2-perl-xs
not complete)
Diffstat (limited to 'rpmdrake.pm')
-rw-r--r--rpmdrake.pm4
1 files changed, 1 insertions, 3 deletions
diff --git a/rpmdrake.pm b/rpmdrake.pm
index b6694d8e..5c4c9221 100644
--- a/rpmdrake.pm
+++ b/rpmdrake.pm
@@ -330,14 +330,13 @@ by Mandrake Linux Official Updates.")), return '';
if ($retv) {
my ($model, $iter) = $tree->get_selection->get_selected;
$model and $w->{retval} = { sel => $model->get($iter, 0) };
- $iter and $iter->free;
}
Gtk2->main_quit })
} ([ N("Ok"), 1 ], [ N("Cancel"), 0 ])),
));
my %roots;
$tree_model->append_set($roots{$_->{land}} ||= $tree_model->append_set(undef, [ 0 => $_->{land} ]),
- [ 0 => $_->{url} ])->free foreach @mirrors;
+ [ 0 => $_->{url} ]) foreach @mirrors;
$w->{window}->set_size_request(500, 400);
$w->{rwindow}->show_all;
@@ -346,7 +345,6 @@ by Mandrake Linux Official Updates.")), return '';
$tree->expand_row($path, 0);
$path->down;
$tree->get_selection->select_path($path);
- $path->free;
$w->main && member($w->{retval}{sel}, map { $_->{url} } @mirrors) and $w->{retval}{sel};
}