Skip threaded debugger tests unless $Config{usethreads}

diff --git a/lib/perl5db.t b/lib/perl5db.t
index 6c01aa9..c52ae76 100755 (executable)
--- a/lib/perl5db.t
+++ b/lib/perl5db.t
@@ -8,6 +8,7 @@ BEGIN {
 
 use strict;
 use warnings;
+use Config;
 
 BEGIN {
     if (!-c "/dev/null") {
@@ -89,9 +90,13 @@ like($contents, qr/sub factorial/,
 }
 
 {
-    local $ENV{PERLDB_OPTS} = "ReadLine=0 NonStop=1";
-    my $output = runperl(switches => [ '-dt' ], progfile => '../lib/perl5db/t/symbol-table-bug');
-    like($output, qr/Undefined symbols 0/, 'there are no undefined values in the symbol table when running with thread support');
+    if ( $Config{usethreads} ) {
+        local $ENV{PERLDB_OPTS} = "ReadLine=0 NonStop=1";
+        my $output = runperl(switches => [ '-dt' ], progfile => '../lib/perl5db/t/symbol-table-bug');
+        like($output, qr/Undefined symbols 0/, 'there are no undefined values in the symbol table when running with thread support');
+    } else {
+        skip("This perl is not threaded, skipping threaded debugger tests");
+    }
 }
 
 # clean up.