From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 3 Oct 2001 13:23:32 +0000 (+0000)
Subject: Skip the RV printing test under threads until fixed.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4f9392f7a2bc76232430e428c2332195e3cb1c32;p=p5sagit%2Fp5-mst-13.2.git

Skip the RV printing test under threads until fixed.

p4raw-id: //depot/perl@12317
---

diff --git a/ext/B/t/terse.t b/ext/B/t/terse.t
index c586c09..336b7a7 100644
--- a/ext/B/t/terse.t
+++ b/ext/B/t/terse.t
@@ -80,11 +80,15 @@ sub bar {
 	$foo = "a string";
 }
 
-# Schwern's example of finding an RV
-my $path = join " ", map { qq["-I$_"] } @INC;
-my $redir = $^O eq 'MacOS' ? '' : "2>&1";
-my $items = qx{$^X $path "-MO=Terse" -le "print \\42" $redir};
-like( $items, qr/RV $hex \\42/, 'RV' );
+SKIP: {
+    use Config;
+    skip("- printing RVs not working under threads") if $Config{usethreads};
+    # Schwern's example of finding an RV
+    my $path = join " ", map { qq["-I$_"] } @INC;
+    my $redir = $^O eq 'MacOS' ? '' : "2>&1";
+    my $items = qx{$^X $path "-MO=Terse" -le "print \\42" $redir};
+    like( $items, qr/RV $hex \\42/, 'RV' );
+}
 
 package TieOut;