diff options
Diffstat (limited to 'scripts/Dpkg/Changelog.pm')
| -rw-r--r-- | scripts/Dpkg/Changelog.pm | 6 |
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; } |