X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fop%2Fgetpid.t;h=b51b0646fcaab7c504307b1bae7e0220bfa1fe14;hb=25988e07f3c5c5717930b897625a3e6119c92879;hp=a2c5f5f0e2022ce5dc1d5f4c1d076ce5d883a281;hpb=3fc971374f1b931c73c9d94ee9ba7b82bfa682de;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/op/getpid.t b/t/op/getpid.t
index a2c5f5f..b51b064 100644
--- 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");