diff options
| author | Guillaume Cottenceau <gc@mandriva.com> | 2001-10-02 10:28:14 +0000 |
|---|---|---|
| committer | Guillaume Cottenceau <gc@mandriva.com> | 2001-10-02 10:28:14 +0000 |
| commit | 32deac174979feb39418285df1da40a5b307a237 (patch) | |
| tree | a7b5fd5646755005db9a3c71ef8c11e3d3275fa9 /perl-install | |
| parent | b48373e6a40f1534961b32b74db081f958fdd1db (diff) | |
| download | drakx-backup-do-not-use-32deac174979feb39418285df1da40a5b307a237.tar drakx-backup-do-not-use-32deac174979feb39418285df1da40a5b307a237.tar.gz drakx-backup-do-not-use-32deac174979feb39418285df1da40a5b307a237.tar.bz2 drakx-backup-do-not-use-32deac174979feb39418285df1da40a5b307a237.tar.xz drakx-backup-do-not-use-32deac174979feb39418285df1da40a5b307a237.zip | |
don't call pkgs_install when no package needs to be installed
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/drakgw | 6 |
1 files changed, 5 insertions, 1 deletions
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 #- |