diff options
Diffstat (limited to 'bin/Process_Unix.pm')
-rw-r--r-- | bin/Process_Unix.pm | 53 |
1 files changed, 0 insertions, 53 deletions
diff --git a/bin/Process_Unix.pm b/bin/Process_Unix.pm deleted file mode 100644 index a4ad894f470..00000000000 --- a/bin/Process_Unix.pm +++ /dev/null @@ -1,53 +0,0 @@ -# $Id$ -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 for <$name> <$args>"; - } - 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 ('TERM', $self->[0]); - # print STDERR "Process_Unix::Kill 'TERM' $self->[0]\n"; -} - -sub Wait -{ - my $self = shift; - waitpid ($self->[0], 0); -} - - -1; |