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

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Wed Apr 29 02:41:26 2009
New Revision: 19366

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

Log:
revert extra change that previous commit makes: the change is right, but it's kind of important to commit this alone and make a good comment message because it's a bit confusing

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:41:26 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((?!(\w+_)?RT::)\w+::\w+)\b}{<a
+    $body =~ s{(?<![\$:])(?<!RT::)\b((?!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>!;