From: Jarkko Hietaniemi Date: Fri, 3 May 2002 03:52:08 +0000 (+0000) Subject: If no Socket should not try to test Net:: X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7374aa6104ced9d387094f3746ef289bdc8bd024;p=p5sagit%2Fp5-mst-13.2.git If no Socket should not try to test Net:: p4raw-id: //depot/perl@16365 --- diff --git a/t/lib/1_compile.t b/t/lib/1_compile.t index 1af3ecf..4918c3f 100644 --- a/t/lib/1_compile.t +++ b/t/lib/1_compile.t @@ -18,9 +18,12 @@ use File::Spec::Functions; my @Core_Modules = grep /\S/, ; 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); + } } @Core_Modules = sort @Core_Modules;