From 325658297f91aef3c9b8666ddac31d2ece6400a8 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 19 Dec 2000 18:16:58 +0000
Subject: spawnShell: set DISPLAY, just in case :)

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

(limited to 'perl-install')

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 31426c666..cab5fec86 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -215,6 +215,8 @@ sub spawnShell {
 
     fork and return;
 
+    $ENV{DISPLAY} ||= ":0"; #- why not :pp
+
     local *F;
     sysopen F, "/dev/tty2", 2 or die "cannot open /dev/tty2 -- no shell will be provided";
 
-- 
cgit v1.2.1