From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 18 Jun 2004 09:23:20 +0000 (+0000)
Subject: Can't test the B modules if we didn't build 'em
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b3bfad09cf42ab83b169135721c4f1e81f792cde;p=p5sagit%2Fp5-mst-13.2.git

Can't test the B modules if we didn't build 'em

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

diff --git a/t/lib/1_compile.t b/t/lib/1_compile.t
index 78750d0..ecbafde 100644
--- a/t/lib/1_compile.t
+++ b/t/lib/1_compile.t
@@ -25,6 +25,9 @@ if (eval { require Socket }) {
       push @Core_Modules, qw(Net::Cmd Net::POP3);
   }
 }
+if(eval { require B }) {
+  push @Core_Modules, qw(B::C B::CC B::Stackobj);
+}
 
 @Core_Modules = sort @Core_Modules;
 
@@ -66,9 +69,6 @@ sub compile_module {
 # http://www.pobox.com/~schwern/cgi-bin/perl-qa-wiki.cgi?UntestedModules
 # and vice-versa.  The list should only shrink.
 __DATA__
-B::C
-B::CC
-B::Stackobj
 CPAN::FirstTime
 DynaLoader
 Pod::Plainer