From 3a4d4afe6fd0f3f0620bd4d6a0b34f79e660a950 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 15 Jul 2002 11:52:21 +0000
Subject: ease testing of standalone's when non-superuser via setting TESTING=1

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

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

diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm
index b22e703a9..644e75a29 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -79,7 +79,7 @@ sub vnew {
     require c;
     if ($su) {
 	$ENV{PATH} = "/sbin:/usr/sbin:$ENV{PATH}";
-	$su = '' if $::testing;
+	$su = '' if $::testing || $ENV{TESTING};
     }
     if ($ENV{DISPLAY} && system('/usr/X11R6/bin/xtest') == 0) {
 	if ($su && $>) {
-- 
cgit v1.2.1