diff options
Diffstat (limited to 'perl-install/install_any.pm')
| -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 c111d117c..31163a31d 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -313,8 +313,11 @@ sub start_i810fb() { sub spawnShell() { return if $::local_install || $::testing || dont_run_directly_stage2(); + my $shellpid_file = '/var/run/drakx_shell.pid'; + return if -e $shellpid_file && -d '/proc/' . chomp_(cat_($shellpid_file)); + if (my $shellpid = fork()) { - output('/var/run/drakx_shell.pid', $shellpid); + output($shellpid_file, $shellpid); return; } |