[Bps-public-commit] r19365 - RT-OnlineDocs/trunk/html/Developer/Perldoc

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Wed Apr 29 02:33:07 2009
New Revision: 19365

Modified:
   RT-OnlineDocs/trunk/html/Developer/Perldoc/Body.html

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

Modified: RT-OnlineDocs/trunk/html/Developer/Perldoc/Body.html
==============================================================================
--- RT-OnlineDocs/trunk/html/Developer/Perldoc/Body.html	(original)
+++ RT-OnlineDocs/trunk/html/Developer/Perldoc/Body.html	Wed Apr 29 02:33:07 2009
@@ -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>!;