diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-04-07 16:59:45 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-04-07 16:59:45 +0000 |
| commit | 364d36377303fce391fc0876ff8203f137a250eb (patch) | |
| tree | 2221aeb75767a8c5bab283c95d4e83c3ac3d6231 /lib | |
| parent | 342312103582a8a58459fd4abec7514aa866d334 (diff) | |
| download | perl-364d36377303fce391fc0876ff8203f137a250eb.tar.gz | |
Can't right now twist my brain to figure out
the right CR/LF code point mappings in EBCDIC.
p4raw-id: //depot/perl@15787
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Pod/t/eol.t | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/lib/Pod/t/eol.t b/lib/Pod/t/eol.t index 89124eeb4e..ea2c259384 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: $!"; |