Change 16365: If no Socket should not try to test Net::

[Jarkko Hietaniemi]

Change 16365 by jhi@alpha on 2002/05/03 03:52:08

        If no Socket should not try to test Net::

Affected files ...

.... //depot/perl/t/lib/1_compile.t#64 edit

Differences ...

==== //depot/perl/t/lib/1_compile.t#64 (text) ====
Index: perl/t/lib/1_compile.t
--- perl/t/lib/1_compile.t.~1~  Thu May  2 22:00:05 2002
+++ perl/t/lib/1_compile.t      Thu May  2 22:00:05 2002
@@ -18,9 +18,12 @@
 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;
End of Patch.