From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 18 Oct 2001 12:37:28 +0000 (+0000)
Subject: Wrong skip() arguments.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e33daabec7be76a5b5576db8f0b39f1e24d70e1e;p=p5sagit%2Fp5-mst-13.2.git

Wrong skip() arguments.

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

diff --git a/ext/B/t/terse.t b/ext/B/t/terse.t
index 336b7a7..281d65c 100644
--- a/ext/B/t/terse.t
+++ b/ext/B/t/terse.t
@@ -82,7 +82,8 @@ sub bar {
 
 SKIP: {
     use Config;
-    skip("- printing RVs not working under threads") if $Config{usethreads};
+    skip("- printing RVs not working under threads", 1)
+	if $Config{usethreads};
     # Schwern's example of finding an RV
     my $path = join " ", map { qq["-I$_"] } @INC;
     my $redir = $^O eq 'MacOS' ? '' : "2>&1";