diff options
Diffstat (limited to 'scripts/Dpkg/Changelog/Entry/Debian.pm')
| -rw-r--r-- | scripts/Dpkg/Changelog/Entry/Debian.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/scripts/Dpkg/Changelog/Entry/Debian.pm b/scripts/Dpkg/Changelog/Entry/Debian.pm index 88b927104..4ad43ebd4 100644 --- a/scripts/Dpkg/Changelog/Entry/Debian.pm +++ b/scripts/Dpkg/Changelog/Entry/Debian.pm @@ -297,8 +297,8 @@ sub find_closes { my %closes; while ($changes && - ($changes =~ /closes:\s*(?:bug)?\#?\s?\d+(?:,\s*(?:bug)?\#?\s?\d+)*/ig)) { - $closes{$_} = 1 foreach ($& =~ /\#?\s?(\d+)/g); + ($changes =~ /closes:\s*(?:bug)?\#?\s?\d+(?:,\s*(?:bug)?\#?\s?\d+)*/pig)) { + $closes{$_} = 1 foreach (${^MATCH} =~ /\#?\s?(\d+)/g); } my @closes = sort { $a <=> $b } keys %closes; |