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