diff options
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/drakbug | 13 |
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")); } |