Don’t LEAVE_with_name("evalcomp") for syntax errors

[perl5.git] / t / op / threads-dirh.t

diff --git a/t/op/threads-dirh.t b/t/op/threads-dirh.t
index 900a62a..b481992 100644 (file)
--- a/t/op/threads-dirh.t
+++ b/t/op/threads-dirh.t
@@ -9,10 +9,7 @@ BEGIN {
      $| = 1;
 
      require Config;
-     if (!$Config::Config{useithreads}) {
-        print "1..0 # Skip: no ithreads\n";
-        exit 0;
-     }
+     skip_all_without_config('useithreads');
      skip_all_if_miniperl("no dynamic loading on miniperl, no threads");
 
      plan(6);