From: Duke Leto <jonathan@leto.net>
Date: Sun, 14 Jun 2009 19:06:55 +0000 (-0700)
Subject: Skip threaded debugger tests unless $Config{usethreads}
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f63574b540b77d4587478e51b1c4b2da2c769597;p=p5sagit%2Fp5-mst-13.2.git

Skip threaded debugger tests unless $Config{usethreads}
---

diff --git a/lib/perl5db.t b/lib/perl5db.t
index 6c01aa9..c52ae76 100755
--- 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.