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);
ok($cksum1 == $cksum2, "CR vs LF");
ok($cksum1 == $cksum3, "CR vs CRLF");
ok($cksum2 == $cksum3, "LF vs CRLF");
+close IN;
END {
- 1 while unlink("$$.pod", "$$.in", "$$.o1", "$$.o2", "$$.o3");
+ 1 while unlink("$$.pod", "$$.in", "$$.o1", "$$.o2", "$$.o3",
+ "pod2htmd.x~~", "pod2htmi.x~~");
}