http://www.perlmonks.org?node_id=89877


in reply to Very Flexible HTML Template System

I think sub ReadFile should be more portable about line ends:

sub ReadFile {
    unless (open(INFILE,"< $_[0]")) {return 0;}
    my $readin = join //, map {chomp;$_} <INFILE>;
    close(INFILE);
    $readin;
}

[download]

I expect there are other spots needing similar treatment

I was tempted to change your open statement, but it's your code and that would change the interface.

After Compline,
Zaxo

In Section Code Catacombs