1package NoFork; 2 3BEGIN { 4 *CORE::GLOBAL::fork = sub { die "you should not fork" }; 5} 6use Config; 7tied(%Config)->{d_fork} = 0; # blatant lie 8 9=begin TEST 10 11Assuming not to much chdir: 12 13 PERL5OPT='-It/lib -MNoFork' perl -Ilib bin/prove -r t 14 15=end TEST 16 17=cut 18 191; 20 21# vim:ts=4:sw=4:et:sta 22