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;
# 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