Remove the deprecated $# variable

[p5sagit/p5-mst-13.2.git] / t / lib / 1_compile.t

diff --git a/t/lib/1_compile.t b/t/lib/1_compile.t
index 1af3ecf..ecbafde 100644 (file)
--- a/t/lib/1_compile.t
+++ b/t/lib/1_compile.t
@@ -18,9 +18,15 @@ use File::Spec::Functions;
 my @Core_Modules = grep /\S/, <DATA>;
 chomp @Core_Modules;
 
-# Two Net:: modules need the Convert::EBCDIC if in EBDCIC.
-if (ord("A") != 193 || eval { require Convert::EBCDIC }) {
-    push @Core_Modules, qw(Net::Cmd Net::POP3);
+if (eval { require Socket }) {
+  push @Core_Modules, qw(Net::Domain);
+  # Two Net:: modules need the Convert::EBCDIC if in EBDCIC.
+  if (ord("A") != 193 || eval { require Convert::EBCDIC }) {
+      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;
@@ -63,18 +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
-ByteLoader
-CPAN
 CPAN::FirstTime
 DynaLoader
-ExtUtils::MM_NW5
-ExtUtils::Install
-ExtUtils::Liblist
-ExtUtils::Mksymlists
-Net::Domain
-O
 Pod::Plainer
-Test::Harness::Iterator