summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/install_any.pm5
1 files changed, 4 insertions, 1 deletions
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