| Subject: | Conflict with "#<<<": This also used by Perltidy (patch included) |
Hi,
the marker #<<< is also used by Perltidy to indicate a block, which should not get
reformatted.
This conflicts with Pod::ProjectDoc, which dies at in Parser.pm at line 131 with "gotcha" when
there is such a marker in a file ...
Attached there is a patch for Parser.pm (and the new Parser.pm) , which changes the
Pod::ProjectDocs marker to
#<<<PPD<
and
Show quoted text
>PPD>>>
Ciao
Alvar
| Subject: | Parser.pm |
Message body is not shown because it is too large.
| Subject: | Pod-ProjectDocs__Parser.pm.diff |
71c71
< $self->{TopLinks} = qq(<p><a href="#<<<G?TOP>>>" class="toplink">Top</a></p>) unless defined $self->{TopLinks};
---
> $self->{TopLinks} = qq(<p><a href="#<<<PPD<G?TOP>PPD>>>" class="toplink">Top</a></p>) unless defined $self->{TopLinks};
126c126
< $self->{buffer} =~ s/<<<G\?TOP>>>/$self->{FirstAnchor}/ge;
---
> $self->{buffer} =~ s/<<<PPD<G\?TOP>PPD>>>/$self->{FirstAnchor}/ge;
130,131c130,132
< $self->{buffer} =~ s/#<<<(.*?)>>>/'#' . $self->_findSection($1)/eg;
< die "gotcha" if $self->{buffer} =~ /#<<</;
---
> $self->{buffer} =~ s/#<<<PPD<(.*?)>PPD>>>/'#' . $self->_findSection($1)/eg;
> die "gotcha, found my marker '#<<<PPD<' in file '$self->{_INFILE}'" if $self->{buffer} =~ /#<<<PPD</;
>
565c566
< $string = qq(<a href="#<<<$targ>>>">$text</a>);
---
> $string = qq(<a href="#<<<PPD<$targ>PPD>>>">$text</a>);