diff options
| author | Guillaume Cottenceau <gc@mandriva.com> | 2003-11-27 17:28:19 +0000 |
|---|---|---|
| committer | Guillaume Cottenceau <gc@mandriva.com> | 2003-11-27 17:28:19 +0000 |
| commit | c1792b9d7d35314fe10a6b9d47f9a22de45c79af (patch) | |
| tree | 6ca9df3e53dedfa02986c6bd69fd753789f29b65 /perl-install | |
| parent | 1eed02a591dca1310b020ef24f74bf4ebcbd1dd2 (diff) | |
| download | drakx-backup-do-not-use-c1792b9d7d35314fe10a6b9d47f9a22de45c79af.tar drakx-backup-do-not-use-c1792b9d7d35314fe10a6b9d47f9a22de45c79af.tar.gz drakx-backup-do-not-use-c1792b9d7d35314fe10a6b9d47f9a22de45c79af.tar.bz2 drakx-backup-do-not-use-c1792b9d7d35314fe10a6b9d47f9a22de45c79af.tar.xz drakx-backup-do-not-use-c1792b9d7d35314fe10a6b9d47f9a22de45c79af.zip | |
save shell pid
Diffstat (limited to 'perl-install')
| -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 |