This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Move the special-case logic for $qr_embed_thr to regexp_qr_embed_thr.t
[perl5.git] / t / re / regexp.t
index 5cb5186..9c430ad 100644 (file)
@@ -57,18 +57,6 @@ BEGIN {
     chdir 't' if -d 't';
     @INC = '../lib';
 
     chdir 't' if -d 't';
     @INC = '../lib';
 
-    if ($qr_embed_thr) {
-       require Config;
-       if (!$Config::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;
-       }
-       require threads;
-    }
 }
 
 use strict;
 }
 
 use strict;