#!./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: $!";
open(POD, "<$$.pod") or die "$$.pod: $!";
open(IN, ">$$.in") or die "$$.in: $!";
while (<POD>) {
- tr/\x0D\x0A//d;
- print IN $_, "\x0D";
+ s/[\r\n]+/\r/g;
+ print IN $_;
}
close(POD);
close(IN);
open(POD, "<$$.pod") or die "$$.pod: $!";
open(IN, ">$$.in") or die "$$.in: $!";
while (<POD>) {
- tr/\x0D\x0A//d;
- print IN $_, "\x0A";
+ s/[\r\n]+/\n/g;
+ print IN $_;
}
close(POD);
close(IN);
open(POD, "<$$.pod") or die "$$.pod: $!";
open(IN, ">$$.in") or die "$$.in: $!";
while (<POD>) {
- tr/\x0D\x0A//d;
- print IN $_, "\x0D\x0A";
+ s/[\r\n]+/\r\n/g;
+ print IN $_;
}
close(POD);
close(IN);