[Secure-testing-commits] r363 - sarge-checks

[Joey Hess]

Author: joeyh
Date: 2005-02-07 19:29:19 +0100 (Mon, 07 Feb 2005)
New Revision: 363

Modified:
   sarge-checks/updatelist
Log:
new items get descriptions added right away


Modified: sarge-checks/updatelist
===================================================================
--- sarge-checks/updatelist	2005-02-07 18:05:01 UTC (rev 362)
+++ sarge-checks/updatelist	2005-02-07 18:29:19 UTC (rev 363)
@@ -124,7 +124,7 @@
 
 foreach my $can (reverse sort { $cans{$a}{can} cmp $cans{$b}{can} } keys %cans) {
 	next unless $listedcans{$can};
-	print "$can\n";
+	print $can.(length $cans{$can}{description} ? " ".$cans{$can}{description} : "")."\n";
 	if ($cans{$can}{reserved}) {
 		print "\tNOTE: reserved\n";
 	}