summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorGuillaume Cottenceau <gc@mandriva.com>2003-11-27 17:28:19 +0000
committerGuillaume Cottenceau <gc@mandriva.com>2003-11-27 17:28:19 +0000
commitc1792b9d7d35314fe10a6b9d47f9a22de45c79af (patch)
tree6ca9df3e53dedfa02986c6bd69fd753789f29b65 /perl-install
parent1eed02a591dca1310b020ef24f74bf4ebcbd1dd2 (diff)
downloaddrakx-c1792b9d7d35314fe10a6b9d47f9a22de45c79af.tar
drakx-c1792b9d7d35314fe10a6b9d47f9a22de45c79af.tar.gz
drakx-c1792b9d7d35314fe10a6b9d47f9a22de45c79af.tar.bz2
drakx-c1792b9d7d35314fe10a6b9d47f9a22de45c79af.tar.xz
drakx-c1792b9d7d35314fe10a6b9d47f9a22de45c79af.zip
save shell pid
Diffstat (limited to 'perl-install')
-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