From 85bd39ce85fd41a5e6fc5c0b91b3c502cebd5e0b Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 19 Jan 2004 10:00:53 +0000 Subject: simplify --- perl-install/standalone/drakbug | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/standalone/drakbug') diff --git a/perl-install/standalone/drakbug b/perl-install/standalone/drakbug index 22f388fc0..12dacbef0 100755 --- a/perl-install/standalone/drakbug +++ b/perl-install/standalone/drakbug @@ -203,7 +203,7 @@ 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 (member($text, keys %$mdk_app) && $text ne N("Standalone Tools")) { + } elsif (exists($mdk_app->{$text}) && $text ne N("Standalone Tools")) { $app_choice = get_package($mdk_app->{$text}); } else { LOOP: while (my ($key, $value) = each %$mdk_app) { -- cgit v1.2.1