Speed up scanning rpmdb for locales

1 files 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) = @_;