# $Id: NoFork.pm 2683 2007-10-04 12:35:06Z andy $
package NoFork;
# This code originally written by Eric Wilhelm for the Test::Harness
# project. Thanks Eric - it's just what I needed :)
BEGIN {
*CORE::GLOBAL::fork = sub { die "you should not fork" };
}
use Config;
tied( %Config )->{d_fork} = 0; # blatant lie
=begin TEST
Assuming not too much chdir:
PERL5OPT='-It/lib -MNoFork' perl -Ilib bin/prove -r t
=end TEST
=cut
1;