Permalink
Browse files

=cut fix: remove it too since its corresponding =head1 is removed

  • Loading branch information...
1 parent 50ddbfa commit a362adb2943e763afd69242365043975973dbdbf sunnavy committed Apr 29, 2009
Showing with 2 additions and 2 deletions.
  1. +2 −2 html/Developer/Perldoc/Body.html
@@ -80,7 +80,7 @@
}
$body =~ s/^=head1\b(?! ACCESSORS).*\s*(?==(head1|cut))//mg;
- $body =~ s/^=head1 (?:AUTHOR|SEE ALSO|SYNOPSIS)\s*[^=]+//mg;
+ $body =~ s/^=head1 (?:AUTHOR|SEE ALSO|SYNOPSIS)\s*[^=]+(^=cut)?//mg;
$body =~ s/^=/\n=/mg;
$body =~ s/^=begin testing\n/=begin testing\n\n/mg;
close $fh;
@@ -96,7 +96,7 @@
$n =~ s{/}{::}g;
$m->print("<h1>$n</h1>");
$body =~ s/(?<!\$)\b(RT::[a-zA-Z0-9:]+)\b/<a href="Body.html?n=$1">$1<\/a>/g;
- $body =~ s{(?<![\$:])(?<!RT::)\b((?!RT::)\w+::\w+)\b}{<a
+ $body =~ s{(?<![\$:])(?<!RT::)\b((?!(\w+_)?RT::)\w+::\w+)\b}{<a
href="http://search.cpan.org/search?query=$1&mode=module">$1</a>}g;
$body =~ s!</li>\n\t<ul>!<ul>!;
$body =~ s!</ul>!</ul></li>!;

0 comments on commit a362adb

Please sign in to comment.