From 656c8863e26b97102d0b748dc90f2eba7dd7df47 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Fri, 1 Jul 2005 07:14:28 +0000 Subject: simplify --- perl-install/standalone/drakbug | 13 ++++--------- 1 file changed, 4 insertions(+), 9 deletions(-) (limited to 'perl-install') 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")); } -- cgit v1.2.1