From d1397a722aec6c8704938cfaf82fca1db3baf9b3 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Fri, 13 Feb 2004 14:02:13 +0000
Subject: (vnew) do not complaint about being run as root when --testing was
 passed

---
 perl-install/interactive.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm
index 1d658eda3..255f64b40 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -88,7 +88,7 @@ sub new($) {
 
 sub vnew {
     my ($_type, $o_su, $o_icon) = @_;
-    my $su = $o_su eq "su";
+    my $su = $::testing ? 0 : $o_su eq "su";
     if ($ENV{INTERACTIVE_HTTP}) {
 	require interactive::http;
 	return interactive::http->new;
-- 
cgit v1.2.1