From: Jarkko Hietaniemi <jhi@iki.fi>
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;hp=ee1db23eeaa208908244ed9e479fed560e28d90a;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/, <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);
+  }
 }
 
 @Core_Modules = sort @Core_Modules;