diff options
| -rw-r--r-- | perl-install/install_any.pm | 5 |
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 |