Convert t/op/die_except.t to test.pl, strict and warnings.

[perl5.git] / t / op / getppid.t

diff --git a/t/op/getppid.t b/t/op/getppid.t
index f4ebc7e..a631610 100644 (file)
--- a/t/op/getppid.t
+++ b/t/op/getppid.t
@@ -13,16 +13,10 @@ BEGIN {
 }
 
 use strict;
-use Config;
 
 BEGIN {
-    for my $syscall (qw(pipe fork waitpid getppid)) {
-       if (!$Config{"d_$syscall"}) {
-           print "1..0 # Skip: no $syscall\n";
-           exit;
-       }
-    }
     require './test.pl';
+    skip_all_without_config(qw(d_pipe d_fork d_waitpid d_getppid));
     plan (8);
 }