From: Gurusamy Sarathy <gsar@cpan.org>
Date: Fri, 26 Oct 2001 15:15:16 +0000 (+0000)
Subject: fix misleading comment on known inadequacy in B::Terse, and skip
X-Git-Tag: accepted/trunk/20130322.191538~29722
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=63141bc47db9953e6097684fabf56f36dd452e86;p=platform%2Fupstream%2Fperl.git

fix misleading comment on known inadequacy in B::Terse, and skip
it correctly

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

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