diff options
Diffstat (limited to 'gnu/usr.bin/perl/t/op/getpid.t')
| -rw-r--r-- | gnu/usr.bin/perl/t/op/getpid.t | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gnu/usr.bin/perl/t/op/getpid.t b/gnu/usr.bin/perl/t/op/getpid.t index a2c5f5f0e20..b51b0646fca 100644 --- a/gnu/usr.bin/perl/t/op/getpid.t +++ b/gnu/usr.bin/perl/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"); |