[Secure-testing-commits] r1770 - bin

[Joey Hess]

Author: joeyh
Date: 2005-09-01 20:04:41 +0000 (Thu, 01 Sep 2005)
New Revision: 1770

Modified:
   bin/checklist
Log:
work around further warnings for recording stuff with no item ids


Modified: bin/checklist
===================================================================
--- bin/checklist	2005-09-01 19:58:54 UTC (rev 1769)
+++ bin/checklist	2005-09-01 20:04:41 UTC (rev 1770)
@@ -75,12 +75,15 @@
 # Add an item into the data array.
 sub record {
 	my ($package, $condition, $item, $urgency)=@_;
+
+	if (! defined $item) {
+		$item='';
+	}
 		
 	if ($html) {
 		$condition=~s{bug #(\d+)}{<a href="http://bugs.debian.org/$1">bug #$1</a>}g;
 		$condition=~s{unfixed}{<b>unfixed</b>}g;
-		$item=~s#((?:CAN|CVE)-\d+-\d+)#<a href="http://www.cve.mitre.org/cgi-bin/cvename.cgi?name=$1">$1</a>#g
-			if defined $item;
+		$item=~s#((?:CAN|CVE)-\d+-\d+)#<a href="http://www.cve.mitre.org/cgi-bin/cvename.cgi?name=$1">$1</a>#g;
 	}
 
 	push @{$data{$package}{$condition}}, {item => $item, urgency => $urgency};