svnno****@sourc*****
svnno****@sourc*****
2007年 12月 28日 (金) 20:04:21 JST
スラドRevision: 387
http://svn.sourceforge.jp/cgi-bin/viewcvs.cgi?root=slashdotjp&view=rev&rev=387
Author: tach
Date: 2007-12-28 20:04:21 +0900 (Fri, 28 Dec 2007)
Log Message:
-----------
* Suppress "Use of uninitialized value in list assignment at
/usr/lib/perl5/Slash/DB/MySQL.pm line 3713."
Modified Paths:
--------------
slashjp/trunk/Slash/DB/MySQL/MySQL.pm
slashjp/trunk/debian/changelog
-------------- next part --------------
Modified: slashjp/trunk/Slash/DB/MySQL/MySQL.pm
===================================================================
--- slashjp/trunk/Slash/DB/MySQL/MySQL.pm 2007-12-28 10:34:36 UTC (rev 386)
+++ slashjp/trunk/Slash/DB/MySQL/MySQL.pm 2007-12-28 11:04:21 UTC (rev 387)
@@ -3709,6 +3709,7 @@
# Make sure the list of stoids is unique.
$stoid_list = [ $stoid_list ] if !ref($stoid_list);
+ $stoid_list = [grep($_, @$stoid_list)];
return if !$stoid_list || !@$stoid_list;
my %stoids = ( map { ($_, 1) } @$stoid_list );
$stoid_list = [ sort { $a <=> $b } keys %stoids ];
Modified: slashjp/trunk/debian/changelog
===================================================================
--- slashjp/trunk/debian/changelog 2007-12-28 10:34:36 UTC (rev 386)
+++ slashjp/trunk/debian/changelog 2007-12-28 11:04:21 UTC (rev 387)
@@ -7,8 +7,10 @@
/usr/share/perl5/Slash/Admin.pm line 177
* Suppress "Use of uninitialized value in string eq at
/usr/lib/perl5/Slash/DB/MySQL.pm line 10182."
+ * Suppress "Use of uninitialized value in list assignment at
+ /usr/lib/perl5/Slash/DB/MySQL.pm line 3713."
- -- Taku YASUI <tach****@osdn*****> Fri, 28 Dec 2007 19:33:31 +0900
+ -- Taku YASUI <tach****@osdn*****> Fri, 28 Dec 2007 20:03:37 +0900
slash (2.5.0.188-4) unstable; urgency=low