Re: [perl #18238] timezone and gmt offset as output by POSIX::strftime() are sometim...

[p5sagit/p5-mst-13.2.git] / ext / POSIX / t / waitpid.t

diff --git a/ext/POSIX/t/waitpid.t b/ext/POSIX/t/waitpid.t
index 1263673..e163371 100644 (file)
--- a/ext/POSIX/t/waitpid.t
+++ b/ext/POSIX/t/waitpid.t
@@ -6,17 +6,17 @@ BEGIN {
 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) };
     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;
     }
 }
@@ -24,10 +24,10 @@ BEGIN {
 use warnings;
 use strict;
 
-use Time::HiRes qw(time);
-
 $| = 1;
 
+print "1..1\n";
+
 sub NEG1_PROHIBITED () { 0x01 }
 sub NEG1_REQUIRED   () { 0x02 }