From 4f9392f7a2bc76232430e428c2332195e3cb1c32 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Wed, 3 Oct 2001 13:23:32 +0000 Subject: [PATCH] Skip the RV printing test under threads until fixed. p4raw-id: //depot/perl@12317 --- ext/B/t/terse.t | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) 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; -- 2.7.4