[perl5.git] / t / re / regexp_qr_embed_thr.t

#!./perl

chdir 't' if -d 't';
require './test.pl';

skip_all_without_config(useithreads);
skip_all_if_miniperl("no dynamic loading on miniperl, no threads");
require threads;

$::qr = 1;
$::qr_embed_thr = 1;

require './re/regexp.t';
Commit	Line	Data
a4499558 YO	1	#!./perl
a4499558 YO	2
25b9bd98 NC	3	chdir 't' if -d 't';
	4	require './test.pl';
	5
	6	skip_all_without_config(useithreads);
	7	skip_all_if_miniperl("no dynamic loading on miniperl, no threads");
	8	require threads;
	9
	10	$::qr = 1;
	11	$::qr_embed_thr = 1;
	12
	13	require './re/regexp.t';