From 57873e7a0a66d618944dcb8eaf19be7c706928e9 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Tue, 6 Mar 2012 20:33:12 +0000
Subject: (spawnShell) do not set DISPLAY if not in Gtk installer

---
 perl-install/install/any.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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

diff --git a/perl-install/install/any.pm b/perl-install/install/any.pm
index dbfa75183..a791cbbd4 100644
--- a/perl-install/install/any.pm
+++ b/perl-install/install/any.pm
@@ -54,7 +54,8 @@ sub spawnShell() {
         return;
     }
 
-    $ENV{DISPLAY} ||= ":0"; #- why not :pp
+    #- why not :pp
+    $ENV{DISPLAY} ||= ":0" if $::o->{interactive} eq "gtk";
 
     local *F;
     sysopen F, "/dev/tty2", 2 or log::l("cannot open /dev/tty2 -- no shell will be provided: $!"), goto cant_spawn;
-- 
cgit v1.2.1