From c1792b9d7d35314fe10a6b9d47f9a22de45c79af Mon Sep 17 00:00:00 2001
From: Guillaume Cottenceau <gc@mandriva.com>
Date: Thu, 27 Nov 2003 17:28:19 +0000
Subject: save shell pid

---
 perl-install/install_any.pm | 5 ++++-
 1 file changed, 4 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 3a85f116e..68a0865da 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -200,7 +200,10 @@ sub getNextStep {
 sub spawnShell() {
     return if $::o->{localInstall} || $::testing;
 
-    fork() and return;
+    if (my $shellpid = fork()) {
+        output('/var/run/drakx_shell.pid', $shellpid);
+        return;
+    }
 
     $ENV{DISPLAY} ||= ":0"; #- why not :pp
 
-- 
cgit v1.2.1