From 32deac174979feb39418285df1da40a5b307a237 Mon Sep 17 00:00:00 2001 From: Guillaume Cottenceau Date: Tue, 2 Oct 2001 10:28:14 +0000 Subject: don't call pkgs_install when no package needs to be installed --- perl-install/standalone/drakgw | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/perl-install/standalone/drakgw b/perl-install/standalone/drakgw index bf50631fd..df017a02c 100755 --- a/perl-install/standalone/drakgw +++ b/perl-install/standalone/drakgw @@ -303,7 +303,8 @@ my %rpm2file = ( ipchains => '/sbin/ipchains', 'caching-nameserver' => '/var/named/named.local'); #- first: try to install all in one step -$in->do_pkgs->install(grep { !-e $rpm2file{$_} } keys %rpm2file); +my @needed_to_install = grep { !-e $rpm2file{$_} } keys %rpm2file; +@needed_to_install and $in->do_pkgs->install(@needed_to_install); #- second: try one by one if failure detected if (grep { !-e $rpm2file{$_} } keys %rpm2file) { foreach (keys %rpm2file) { @@ -665,6 +666,9 @@ Click on Configure to launch the setup wizard.", $setup_state)); #------------------------------------------------- #- $Log$ +#- Revision 1.55 2001/10/02 10:28:14 gc +#- don't call pkgs_install when no package needs to be installed +#- #- Revision 1.54 2001/09/18 20:36:20 damien #- debug #- -- cgit v1.2.1