[p5sagit/p5-mst-13.2.git] / t / lib / NoFork.pm

package NoFork;

BEGIN {
    *CORE::GLOBAL::fork = sub { die "you should not fork" };
}
use Config;
tied(%Config)->{d_fork} = 0;    # blatant lie

=begin TEST

Assuming not to much chdir:

  PERL5OPT='-It/lib -MNoFork' perl -Ilib bin/prove -r t

=end TEST

=cut

1;

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