[Slashdotjp-dev 868] [385] * Fix warning when "HREF" has been capitalized at

Back to archive index

svnno****@sourc***** svnno****@sourc*****
2007年 12月 28日 (金) 19:25:25 JST


Revision: 385
          http://svn.sourceforge.jp/cgi-bin/viewcvs.cgi?root=slashdotjp&view=rev&rev=385
Author:   tach
Date:     2007-12-28 19:25:25 +0900 (Fri, 28 Dec 2007)

Log Message:
-----------
 * Fix warning when "HREF" has been capitalized at
   /usr/share/perl5/Slash/Admin.pm line 177

Modified Paths:
--------------
    slashjp/trunk/debian/changelog
    slashjp/trunk/plugins/Admin/Admin.pm


-------------- next part --------------
Modified: slashjp/trunk/debian/changelog
===================================================================
--- slashjp/trunk/debian/changelog	2007-12-28 08:25:58 UTC (rev 384)
+++ slashjp/trunk/debian/changelog	2007-12-28 10:25:25 UTC (rev 385)
@@ -3,8 +3,10 @@
   * Suppress "Use of uninitialized value in string eq at
     /usr/lib/perl5/Slash/DB/MySQL.pm line 3068"
     - initialize $series and use it
+  * Fix warning when "HREF" has been capitalized at
+    /usr/share/perl5/Slash/Admin.pm line 177
 
- -- Taku YASUI <tach****@osdn*****>  Fri, 28 Dec 2007 17:24:38 +0900
+ -- Taku YASUI <tach****@osdn*****>  Fri, 28 Dec 2007 19:23:46 +0900
 
 slash (2.5.0.188-4) unstable; urgency=low
 

Modified: slashjp/trunk/plugins/Admin/Admin.pm
===================================================================
--- slashjp/trunk/plugins/Admin/Admin.pm	2007-12-28 08:25:58 UTC (rev 384)
+++ slashjp/trunk/plugins/Admin/Admin.pm	2007-12-28 10:25:25 UTC (rev 385)
@@ -174,7 +174,7 @@
 			$a_attr =~ s/\Q$1\E//;
 		}
 
-		$a_attr =~ /\bhref\s*=\s*(["'])(.*?)\1/;
+		$a_attr =~ /\bhref\s*=\s*(["'])(.*?)\1/i;
 		my $a_href = $2;
 		# If we want to exclude certain types of links from appearing
 		# in Related Links, we can make that decision based on the


Slashdotjp-dev メーリングリストの案内
Back to archive index