|
Server : Apache/2.2.22 (Unix) mod_ssl/2.2.22 OpenSSL/1.0.0-fips mod_auth_passthrough/2.1 mod_bwlimited/1.4 System : Linux server.jackjohnson.com 2.6.32-279.5.2.el6.x86_64 #1 SMP Fri Aug 24 01:07:11 UTC 2012 x86_64 User : jackjohn ( 502) PHP Version : 5.3.17 Disable Function : NONE Directory : /installd/perl588installer/CPAN-1.9301/t/ |
Upload File : |
BEGIN {
$|++;
unless (@ARGV && shift(@ARGV) eq "--doit") {
$|=1;
print "1..0 # SKIP test only run when called with --doit\n";
eval "require POSIX; 1" and POSIX::_exit(0);
exit;
}
}
use strict;
use lib "lib";
use CPAN;
my $i = shift;
die "# Stopping the bomb, saw arg $i" if $i && $i>=4;
my $pid = fork;
die "could not fork" unless defined $pid;
if ($pid){ # parent
warn "# (harmless) forkbomb: $$ has forked $pid";
} else {
sleep 1; # let the parent say goodbye first
warn "# (harmless) forkbomb: in the child $$";
exec $^X, "t/14forkbomb.t", "--doit", ++$i;
}
# Local Variables:
# mode: cperl
# cperl-indent-level: 4
# End: