From e1922243bd426cc4af43aa806027d3c8e1c2a810 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 22 Dec 1999 20:07:36 +0000
Subject: no_comment

---
 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 960657ee9..300f64db2 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -42,7 +42,7 @@ sub vnew {
     my ($type, $su) = @_;
     $su = $su eq "su";
     require c;
-    if (c::Xtest($ENV{DISPLAY} ||= ":0")) {
+    if ($ENV{DISPLAY} && c::Xtest($ENV{DISPLAY})) {
 	if ($su) {
 	    $ENV{PATH} = "/sbin:/usr/sbin:$ENV{PATH}";
 	    $> and exec "kdesu", "-c", "$0 @ARGV";	    
-- 
cgit v1.2.1