svnno****@sourc*****
svnno****@sourc*****
2009年 1月 8日 (木) 13:13:13 JST
スラドRevision: 925
http://svn.sourceforge.jp/view?root=slashdotjp&view=rev&rev=925
Author: tach
Date: 2009-01-08 13:13:12 +0900 (Thu, 08 Jan 2009)
Log Message:
-----------
* Fix regexp match warning
at /usr/lib/perl5/Slash/Utility/Comments.pm line 625
Modified Paths:
--------------
slashjp/trunk/Slash/Utility/Comments/Comments.pm
slashjp/trunk/debian/changelog
-------------- next part --------------
Modified: slashjp/trunk/Slash/Utility/Comments/Comments.pm
===================================================================
--- slashjp/trunk/Slash/Utility/Comments/Comments.pm 2009-01-07 14:35:58 UTC (rev 924)
+++ slashjp/trunk/Slash/Utility/Comments/Comments.pm 2009-01-08 04:13:12 UTC (rev 925)
@@ -622,7 +622,8 @@
# are calling from ajax.pl ... easier than reorganizing the code
# for now -- pudge 2008/03/04
for (0..9) {
- if ((caller($_))[1] =~ /\bajax\.pl$/) {
+ my $caller_filename = (caller($_))[1];
+ if ($caller_filename && $caller_filename =~ /\bajax\.pl$/) {
$hashref->{no_titlebar} = 1;
last;
}
Modified: slashjp/trunk/debian/changelog
===================================================================
--- slashjp/trunk/debian/changelog 2009-01-07 14:35:58 UTC (rev 924)
+++ slashjp/trunk/debian/changelog 2009-01-08 04:13:12 UTC (rev 925)
@@ -7,8 +7,10 @@
* Fix to use getData() for moderation message using ajax.pl
* bypass reskey check on insertFireHose() at Journal.pm
* Fix to set/unset firehose_usermode correctly
+ * Fix regexp match warning
+ at /usr/lib/perl5/Slash/Utility/Comments.pm line 625
- -- Taku YASUI <tach****@osdn*****> Wed, 7 Jan 2009 07:27:03 +0000
+ -- Taku YASUI <tach****@osdn*****> Thu, 8 Jan 2009 04:12:39 +0000
slash (2.5.0.231-1) unstable; urgency=low