1#!perl 2use strict; 3use warnings; 4 5require '../../t/test.pl'; 6 7use Config; 8if (!$Config{useithreads}) { 9 skip_all("keyword_plugin thread test requires threads"); 10} 11 12plan(1); 13 14fresh_perl_is( <<'----', <<'====', {}, "loading XS::APItest in threads works"); 15use strict; 16use warnings; 17 18use threads; 19 20require '../../t/test.pl'; 21watchdog(5); 22 23for my $t (1 .. 3) { 24 threads->create(sub { 25 require XS::APItest; 26 })->join; 27} 28 29print "all is well\n"; 30---- 31all is well 32==== 33