| Subject: | bug in Apache::CVS::Revision sub content |
This is pretty important.
content does not return the file as it exists on disk.
It adds an extra newline to each line, which is simply not the right thing to do.
Here's a "fix":
sub content {
my $self = shift;
$self->_checkout() unless $self->co_file();
return undef if $self->is_binary();
open FILE, $self->co_file();
# my $content = join "\n", <FILE>;
my $content = join "", <FILE>;
close FILE;
return $content;
}
This was brought to my attention at
http://perlmonks.com/index.pl?node_id=222936
Apache::CVS::HTML + Perl::Tidy by jeffa