In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/dd249ef42f37ee26bdcfb8111778f0607302e877?hp=028bf728e74682b00bb4314e33ce78574dee577a>
- Log ----------------------------------------------------------------- commit dd249ef42f37ee26bdcfb8111778f0607302e877 Author: Nicholas Clark <[email protected]> Date: Mon Mar 7 21:03:20 2011 +0000 Refactor t/thread_it.pl to use test.pl's skip_all_*() functions. ----------------------------------------------------------------------- Summary of changes: t/thread_it.pl | 17 ++++++++--------- 1 files changed, 8 insertions(+), 9 deletions(-) diff --git a/t/thread_it.pl b/t/thread_it.pl index feec254..cbe979f 100644 --- a/t/thread_it.pl +++ b/t/thread_it.pl @@ -2,15 +2,14 @@ use strict; use warnings; -use Config; -if (!$Config{useithreads}) { - print "1..0 # Skip: no ithreads\n"; - exit 0; -} -if ($ENV{PERL_CORE_MINITEST}) { - print "1..0 # Skip: no dynamic loading on miniperl, no threads\n"; - exit 0; -} +# As perlfunc.pod says: +# Note that the file will not be included twice under the same specified name. +# So ensure that this, textually, is the same name as all the loaded tests use. +# Otherwise if we require 'test.pl' and they require './test.pl', it is loaded +# twice. +require './test.pl'; +skip_all_without_config('useithreads'); +skip_all_if_miniperl("no dynamic loading on miniperl, no threads"); require threads; -- Perl5 Master Repository
