diff options
Diffstat (limited to 'bin/PerlACE/Process_Win32.pm')
| -rw-r--r-- | bin/PerlACE/Process_Win32.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/bin/PerlACE/Process_Win32.pm b/bin/PerlACE/Process_Win32.pm index 0b4599c2c17..ace30cb05bd 100644 --- a/bin/PerlACE/Process_Win32.pm +++ b/bin/PerlACE/Process_Win32.pm @@ -246,7 +246,6 @@ sub Spawn () "/InUseAtExit ". "/LeaksAtExit "; } - my $basename = basename ($self->{EXECUTABLE}); $cmdline = "purify " . "$PurifyOptions ". @@ -301,7 +300,7 @@ sub Spawn () my $status = Win32::Process::Create ($self->{PROCESS}, $executable, $cmdline, - 0, + ($state == 0 ? 1 : 0), $state, '.'); |