diff options
Diffstat (limited to 'bin/Process_Unix.pm')
-rw-r--r-- | bin/Process_Unix.pm | 51 |
1 files changed, 0 insertions, 51 deletions
diff --git a/bin/Process_Unix.pm b/bin/Process_Unix.pm deleted file mode 100644 index 088a1cd7a53..00000000000 --- a/bin/Process_Unix.pm +++ /dev/null @@ -1,51 +0,0 @@ -package Process; - -$EXE_EXT = ""; - -sub Create -{ - my $name = shift; - my $args = shift; - my $self = []; - - FORK: - { - if ($self->[0] = fork) - { - #parent here - bless $self; - } - elsif (defined $self->[0]) - { - #child here - exec $name." ".$args; - die "exec failed"; - } - elsif ($! =~ /No more process/) - { - #EAGAIN, supposedly recoverable fork error - sleep 5; - redo FORK; - } - else - { - # weird fork error - die "Can't fork: $!\n"; - } - } -} - -sub Kill -{ - my $self = shift; - kill (1, $self->[0]); -} - -sub Wait -{ - my $self = shift; - waitpid ($self->[0], 0); -} - - -1; |