BEGIN {
- chdir 't' if -d 't';
- unshift @INC, '../lib';
-}
-
-BEGIN {
use Config;
unless ($Config{d_fork}) {
- print "1..0 # no fork\n";
+ print "1..0 # Skip: no fork\n";
exit 0;
}
- eval { use POSIX qw(sys_wait_h) };
+ eval 'use POSIX qw(sys_wait_h)';
if ($@) {
- print "1..0 # no POSIX sys_wait_h\n";
+ print "1..0 # Skip: no POSIX sys_wait_h\n";
exit 0;
}
- eval { use Time::HiRes };
+ eval 'use Time::HiRes qw(time)';
if ($@) {
- print "1..0 # no Time::HiRes\n";
+ print "1..0 # Skip: no Time::HiRes\n";
exit 0;
}
}
use warnings;
use strict;
-use Time::HiRes qw(time);
-
$| = 1;
+print "1..1\n";
+
sub NEG1_PROHIBITED () { 0x01 }
sub NEG1_REQUIRED () { 0x02 }