1 files changed, 4 insertions, 9 deletions

diff --git a/perl-install/standalone/drakbug b/perl-install/standalone/drakbug
index 1d48aa036..f93a32939 100755
--- a/perl-install/standalone/drakbug
+++ b/perl-install/standalone/drakbug
@@ -148,18 +148,13 @@ sub update_app {
     $ENV{PATH} = "/sbin:/usr/sbin:$ENV{PATH}";
     if (member($text,@all_drakxtools) || $text eq N("Standalone Tools")) {
 	$app_choice = chomp_(`rpm -q drakxtools`);
-    } elsif (exists($mdk_app->{$text}) && $text ne N("Standalone Tools")) {	
+    } elsif (exists($mdk_app->{$text})) {
 	$app_choice = get_package($mdk_app->{$text});
     } else {
-      LOOP: while (my ($key, $value) = each %$mdk_app) {
-	    next if $key eq N("Standalone Tools");
-	    if ($value eq $text) { 
-		$app_choice = get_package($text);
-		$prog = $key; 
-		last LOOP;
-	    }
+	if (my $tool = { reverse %$mdk_app }->{$text}) {
+	    $app_choice = get_package($text);
+	    $prog = $tool;
 	}
-	
     }
     $app_choice ? $package->set_text($app_choice) : $package->set_text(N("Not installed"));
 }