Take a larger margin to prevent 'X' failures in smokes

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

diff --git a/t/op/getpid.t b/t/op/getpid.t
index a2c5f5f..b51b064 100644 (file)
--- a/t/op/getpid.t
+++ b/t/op/getpid.t
@@ -20,11 +20,11 @@ BEGIN {
        print "1..0 # Skip: no getppid\n";
        exit;
     }
-    eval 'use threads; use threads::shared';
-    if ($@ =~ /dynamic loading not available/) {
-       print "1..0 # Skip: no dynamic loading, no threads\n";
-       exit;
+    if ($ENV{PERL_CORE_MINITEST}) {
+        print "1..0 # Skip: no dynamic loading on miniperl, no threads\n";
+        exit 0;
     }
+    eval 'use threads; use threads::shared';
     plan tests => 3;
     if ($@) {
        fail("unable to load thread modules");