diff options
Diffstat (limited to 'bin/PerlACE/Process.pm')
-rw-r--r-- | bin/PerlACE/Process.pm | 36 |
1 files changed, 0 insertions, 36 deletions
diff --git a/bin/PerlACE/Process.pm b/bin/PerlACE/Process.pm deleted file mode 100644 index 52df7aa6c8f..00000000000 --- a/bin/PerlACE/Process.pm +++ /dev/null @@ -1,36 +0,0 @@ -# $Id$ - -package PerlACE::Process; - -use strict; -use English; - -$PerlACE::Process::ExeSubDir = './'; - -### Check for -ExeSubDir commands, store the last one -my @new_argv = (); - -for(my $i = 0; $i <= $#ARGV; ++$i) { - if ($ARGV[$i] eq '-ExeSubDir') { - if (defined $ARGV[$i + 1]) { - $PerlACE::Process::ExeSubDir = $ARGV[++$i].'/'; - } - else { - print STDERR "You must pass a directory with ExeSubDir\n"; - exit(1); - } - } - else { - push @new_argv, $ARGV[$i]; - } -} -@ARGV = @new_argv; - -if ($OSNAME eq "MSWin32") { - require PerlACE::Process_Win32; -} -else { - require PerlACE::Process_Unix; -} - -1; |