From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 26 Mar 2002 14:50:08 +0000 (+0000)
Subject: Can't test Net:: much in OS/390 without Convert::EBCDIC.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d36c8744af24dabb403bbb4dc34a145bcca5f493;p=p5sagit%2Fp5-mst-13.2.git

Can't test Net:: much in OS/390 without Convert::EBCDIC.

p4raw-id: //depot/perl@15519
---

diff --git a/t/lib/1_compile.t b/t/lib/1_compile.t
index 18b0d05..921aa6f 100644
--- a/t/lib/1_compile.t
+++ b/t/lib/1_compile.t
@@ -14,9 +14,16 @@ use warnings;
 
 # Okay, this is the list.
 
-my @Core_Modules = grep /\S/, sort <DATA>;
+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);
+}
+
+@Core_Modules = sort @Core_Modules;
+
 print "1..".(1+@Core_Modules)."\n";
 
 my $message
@@ -61,9 +68,7 @@ ExtUtils::MM_NW5
 ExtUtils::Install
 ExtUtils::Liblist
 ExtUtils::Mksymlists
-Net::Cmd
 Net::Domain
-Net::POP3
 O
 Pod::Plainer
 Test::Harness::Iterator