Dpkg::Changelog::find_closes(): don't return duplicate bug numbers

Ensure we don't return the same bug multiple times even if it's closed
multiple times.

1 files changed, 3 insertions, 3 deletions

diff --git a/scripts/Dpkg/Changelog.pm b/scripts/Dpkg/Changelog.pm
index 5aca5b449..4433722e1 100644
--- a/scripts/Dpkg/Changelog.pm
+++ b/scripts/Dpkg/Changelog.pm
@@ -719,14 +719,14 @@ numbers in an array reference.
 
 sub find_closes {
     my $changes = shift;
-    my @closes = ();
+    my %closes;
 
     while ($changes &&
 	   ($changes =~ /closes:\s*(?:bug)?\#?\s?\d+(?:,\s*(?:bug)?\#?\s?\d+)*/ig)) {
-	push(@closes, $& =~ /\#?\s?(\d+)/g);
+	$closes{$_} = 1 foreach($& =~ /\#?\s?(\d+)/g);
     }
 
-    @closes = sort { $a <=> $b } @closes;
+    my @closes = sort { $a <=> $b } keys %closes;
     return \@closes;
 }