Gecko [ www.blackthorn-inc.com ]

Linux cpanel2.daytoncreative.net 2.6.32-754.29.2.el6.x86_64 #1 SMP Tue May 12 17:39:04 UTC 2020 x86_64
Apache/2.4.43 (cPanel) OpenSSL/1.1.1g mod_bwlimited/1.4
Server IP : 70.62.220.67 & Your IP : 216.73.216.193
Domains : Cant Read [ /etc/named.conf ]
User : michaelgreg

Name	Size	Permission	Date
anchorify.t	1.24 KB	-r--r--r--	2014-12-27 11:48
cache.pod	54 B	-r--r--r--	2014-12-27 11:48
cache.t	1.89 KB	-r--r--r--	2014-12-27 11:48
crossref.pod	393 B	-r--r--r--	2014-12-27 11:48
crossref.t	2.27 KB	-r--r--r--	2014-12-27 11:48
crossref2.t	1.93 KB	-r--r--r--	2014-12-27 11:48
crossref3.t	2.02 KB	-r--r--r--	2014-12-27 11:48
eol.t	1.67 KB	-r--r--r--	2014-12-27 11:48
feature.pod	172 B	-r--r--r--	2014-12-27 11:48
feature.t	1.52 KB	-r--r--r--	2014-12-27 11:48
feature2.pod	172 B	-r--r--r--	2014-12-27 11:48
feature2.t	1.74 KB	-r--r--r--	2014-12-27 11:48
htmldir1.pod	239 B	-r--r--r--	2014-12-27 11:48
htmldir1.t	2.32 KB	-r--r--r--	2014-12-27 11:48
htmldir2.pod	212 B	-r--r--r--	2014-12-27 11:48
htmldir2.t	1.68 KB	-r--r--r--	2014-12-27 11:48
htmldir3.pod	208 B	-r--r--r--	2014-12-27 11:48
htmldir3.t	2.04 KB	-r--r--r--	2014-12-27 11:48
htmldir4.pod	212 B	-r--r--r--	2014-12-27 11:48
htmldir4.t	1.52 KB	-r--r--r--	2014-12-27 11:48
htmldir5.pod	208 B	-r--r--r--	2014-12-27 11:48
htmldir5.t	1.62 KB	-r--r--r--	2014-12-27 11:48
htmlescp.pod	371 B	-r--r--r--	2014-12-27 11:48
htmlescp.t	1.08 KB	-r--r--r--	2014-12-27 11:48
htmllink.pod	1010 B	-r--r--r--	2014-12-27 11:48
htmllink.t	3 KB	-r--r--r--	2014-12-27 11:48
htmlview.pod	1.97 KB	-r--r--r--	2014-12-27 11:48
htmlview.t	4.1 KB	-r--r--r--	2014-12-27 11:48
pod2html-lib.pl	3.08 KB	-r--r--r--	2014-12-27 11:48
poderr.pod	132 B	-r--r--r--	2014-12-27 11:48
poderr.t	1.11 KB	-r--r--r--	2014-12-27 11:48
podnoerr.pod	132 B	-r--r--r--	2014-12-27 11:48
podnoerr.t	818 B	-r--r--r--	2014-12-27 11:48

Rename

#!./perl -w

use Test::More tests => 3;

my $podfile = "$$.pod";
my $infile = "$$.in";
my @outfile = map { "$$.o$_" } 0..2;

open my $pod, '>', $podfile or die "$podfile: $!";
print $pod <<__EOF__;
=pod

=head1 NAME

crlf

=head1 DESCRIPTION

crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf
crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf
crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf
crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf

crlf crlf crlf crlf
    crlf crlf crlf crlf
    crlf crlf crlf crlf

=cut
__EOF__
close $pod or die $!;

use Pod::Html;

my $i = 0;
foreach my $eol ("\r", "\n", "\r\n") {
    open $pod, '<', $podfile or die "$podfile: $!";
    open my $in, '>', $infile  or die "$infile: $!";
    while (<$pod>) {
	s/[\r\n]+/$eol/g;
	print $in $_;
    }
    close $pod or die $!;
    close $in or die $!;

pod2html("--title=eol", "--infile=$infile", "--outfile=$outfile[$i]");
    ++$i;
}

# --- now test ---

my @cksum;

foreach (0..2) {
    local $/;
    open my $in, '<', $outfile[$_] or die "$outfile[$_]: $!";
    $cksum[$_] = unpack "%32C*", <$in>;
    close $in or die $!;
}

is($cksum[0], $cksum[1], "CR vs LF");
is($cksum[0], $cksum[2], "CR vs CRLF");
is($cksum[1], $cksum[2], "LF vs CRLF");

END {
    1 while unlink $podfile, $infile, @outfile, 'pod2htmd.tmp';
}