summaryrefslogtreecommitdiff
path: root/bin/Process_Unix.pm
diff options
context:
space:
mode:
Diffstat (limited to 'bin/Process_Unix.pm')
-rw-r--r--bin/Process_Unix.pm53
1 files changed, 0 insertions, 53 deletions
diff --git a/bin/Process_Unix.pm b/bin/Process_Unix.pm
deleted file mode 100644
index 317c3fa8528..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";
- }
- 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;