[Cpan-forum-commit] rev 122 - trunk/lib/CPAN/Forum

[svn at pti.co.il]

Author: gabor
Date: 2005-03-22 11:12:59 +0200 (Tue, 22 Mar 2005)
New Revision: 122

Modified:
   trunk/lib/CPAN/Forum/Markup.pm
Log:
stop turning http ad mailto links to lower case

Modified: trunk/lib/CPAN/Forum/Markup.pm
===================================================================
--- trunk/lib/CPAN/Forum/Markup.pm	2005-03-22 08:57:38 UTC (rev 121)
+++ trunk/lib/CPAN/Forum/Markup.pm	2005-03-22 09:12:59 UTC (rev 122)
@@ -40,8 +40,8 @@
 				| url                             {$item[1]}
 	url         : http
 	            | mailto
-	http        : m{http://[^">]+}i               { lc $item[1]  }
-	mailto      : m{mailto:[^">]+}i               { lc $item[1]  }   
+	http        : m{http://[^">]+}i               { $item[1]  }
+	mailto      : m{mailto:[^">]+}i               { $item[1]  }   
 	open_a_gt   : m{>}     
 	quote       : m{"}