From d911fb62181f1f8b6bf2ca500b8838410615055b Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 4 Dec 2003 10:16:44 +0000
Subject: - use do_pkgs->ensure_is_installed instead of do_pkgs->install where
 it's easy to do so - do_pkgs->install won't do anything when $::testing

we need a ensure_are_installed

we also need to share more package pkgs_interactive code which is hosted in install_any and standalone
---
 perl-install/standalone.pm | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'perl-install/standalone.pm')

diff --git a/perl-install/standalone.pm b/perl-install/standalone.pm
index 84e9d1b2e..b05301b5f 100644
--- a/perl-install/standalone.pm
+++ b/perl-install/standalone.pm
@@ -164,6 +164,11 @@ sub install {
 
     return 1 if is_installed($o, @l);
 
+    if ($::testing) {
+	log::l("i would install packages " . join(' ', @l));
+	return 1;
+    }
+
     my $wait;
     if ($o->{in}->isa('interactive::newt')) {
 	$o->{in}->suspend;
-- 
cgit v1.2.1