From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 7 Apr 2002 16:59:45 +0000 (+0000)
Subject: Can't right now twist my brain to figure out
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=364d36377303fce391fc0876ff8203f137a250eb;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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: $!";