summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakbug13
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"));
}