From 3b232edffd7a9b13045d0272777018e92537030c Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Mon, 17 Jan 2005 13:42:07 +0000 Subject: Speed up scanning rpmdb for locales --- rpmdrake | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/rpmdrake b/rpmdrake index 4dca7a22..2c314c52 100755 --- a/rpmdrake +++ b/rpmdrake @@ -510,9 +510,10 @@ sub run_treeview_dialog { my $is_locale_available = sub { any { $urpm->{depslist}[$_]->flag_selected } keys %{$urpm->{provides}{$_[0]} || {}} and return 1; - my $found; - db->traverse_tag('name', [ $_ ], sub { $found ||= 1 }); - return $found; + db->traverse_tag('name', [ $_ ], sub { goto traversed }); + return 0; + traversed: + return 1; }; my $callback_choices = sub { my (undef, $db, $state, $choices) = @_; -- cgit v1.2.1