Can't right now twist my brain to figure out

the right CR/LF code point mappings in EBCDIC.

p4raw-id: //depot/perl@15787

diff --git a/lib/Pod/t/eol.t b/lib/Pod/t/eol.t
index 89124ee..ea2c259 100644 (file)
--- a/lib/Pod/t/eol.t
+++ b/lib/Pod/t/eol.t
@@ -1,5 +1,12 @@
 #!./perl -w
 
+BEGIN {
+    if (ord("A") == 193) {
+       print "1..0 \# Skip: EBCDIC\n";
+       exit(0);
+    }
+}
+
 use Test::More tests => 3;
 
 open(POD, ">$$.pod") or die "$$.pod: $!";