print "1..0 # Skip: no dynamic loading on miniperl, no threads\n";
exit 0;
}
- plan(5);
+ plan(6);
}
use threads;
async sub {};
print "ok";
EOI
+
+# From a test case by Tim Bunce in
+# http://www.nntp.perl.org/group/perl.perl5.porters/63123
+fresh_perl_is(<<'EOI', 'ok', { }, 'Ensure PL_linestr can be cloned');
+use threads;
+print do 'op/threads_create.pl';
+EOI