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

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Wed Apr 29 02:45:27 2009
New Revision: 19367

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

Log:
improve regex for the expanding non RT modules to a search.cpan link: we need to avoid the following situation like 'HasMember_RT::Principal', which really occurs when =head2 HasMember RT::Principal, see also 13429 bug

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:45:27 2009
@@ -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>!;