From f7c71fd64ce30e0b5403814e0822a9e3fc405797 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Tue, 22 Jul 2003 22:08:10 +0000
Subject: do not install package in testing mode

---
 perl-install/standalone/drakgw | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl-install/standalone/drakgw b/perl-install/standalone/drakgw
index 3a9a4f98f..0e11c0afb 100755
--- a/perl-install/standalone/drakgw
+++ b/perl-install/standalone/drakgw
@@ -378,7 +378,7 @@ my %rpm2file = ('dhcp-server' => '/usr/sbin/dhcpd',
 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 (any { !-e $rpm2file{$_} } keys %rpm2file) {
+if (!$::testing && any { !-e $rpm2file{$_} } keys %rpm2file) {
     foreach (keys %rpm2file) {
 	-e $rpm2file{$_} or $in->do_pkgs->install($_);
 	-e $rpm2file{$_} or fatal_quit(N("Problems installing package %s", $_));
-- 
cgit v1.2.1