[Collab-qa-commits] r1305 - udd/udd

[lucas at alioth.debian.org]

Author: lucas
Date: 2008-09-27 16:48:31 +0000 (Sat, 27 Sep 2008)
New Revision: 1305

Modified:
   udd/udd/bugs_gatherer.pl
Log:
also delete old bugs

Modified: udd/udd/bugs_gatherer.pl
===================================================================
--- udd/udd/bugs_gatherer.pl	2008-09-27 16:38:23 UTC (rev 1304)
+++ udd/udd/bugs_gatherer.pl	2008-09-27 16:48:31 UTC (rev 1305)
@@ -163,7 +163,7 @@
 	$t = time();
 
 	foreach my $prefix ($table, $archived_table) {
-		foreach my $postfix (qw{_merged_with _found_in _fixed_in _tags}, '') {
+		foreach my $postfix (qw{_packages _merged_with _found_in _fixed_in _tags}, '') {
 			my $sth = $dbh->prepare("DELETE FROM $prefix$postfix WHERE id = \$1");
 			map {
 				$sth->execute($_) or die $!;