svnno****@sourc*****
svnno****@sourc*****
2007年 12月 6日 (木) 21:06:25 JST
SRADRevision: 276
http://svn.sourceforge.jp/cgi-bin/viewcvs.cgi?root=slashdotjp&view=rev&rev=276
Author: tach
Date: 2007-12-06 21:06:24 +0900 (Thu, 06 Dec 2007)
Log Message:
-----------
Use of uninitialized value in string comparison (cmp) at /usr/share/perl5/Slash/Tags.pm line 1648.
Modified Paths:
--------------
slashjp/trunk/debian/changelog
slashjp/trunk/plugins/Tags/Tags.pm
-------------- next part --------------
Modified: slashjp/trunk/debian/changelog
===================================================================
--- slashjp/trunk/debian/changelog 2007-12-06 12:04:57 UTC (rev 275)
+++ slashjp/trunk/debian/changelog 2007-12-06 12:06:24 UTC (rev 276)
@@ -3,8 +3,10 @@
* New upstream CVS release
* Fix: [error] Can't use string ("describe") as a HASH ref while "strict
refs" in use at /usr/share/perl5/Slash/Tags.pm line 1514.\n
+ * Fix: Use of uninitialized value in string comparison (cmp) at
+ /usr/share/perl5/Slash/Tags.pm line 1648.
- -- Taku YASUI <tach****@osdn*****> Thu, 06 Dec 2007 21:02:55 +0900
+ -- Taku YASUI <tach****@osdn*****> Thu, 06 Dec 2007 21:05:39 +0900
slash (2.5.0.184-1) unstable; urgency=low
Modified: slashjp/trunk/plugins/Tags/Tags.pm
===================================================================
--- slashjp/trunk/plugins/Tags/Tags.pm 2007-12-06 12:04:57 UTC (rev 275)
+++ slashjp/trunk/plugins/Tags/Tags.pm 2007-12-06 12:06:24 UTC (rev 276)
@@ -1645,6 +1645,10 @@
sub tagnameorder {
my($a1, $a2) = $a =~ /(^\!)?(.*)/;
my($b1, $b2) = $b =~ /(^\!)?(.*)/;
+ $a1 ||= "";
+ $a2 ||= "";
+ $b1 ||= "";
+ $b2 ||= "";
$a2 cmp $b2 || $a1 cmp $b1;
}