ext/Test-Harness/t/lib/NoFork.pm

   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