Move the special-case logic for $qr_embed_thr to regexp_qr_embed_thr.t

[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';