X-Git-Url: https://git.deb.at/?a=blobdiff_plain;f=lib%2FParse%2FDebianChangelog%2FChangesFilters.pm;fp=lib%2FParse%2FDebianChangelog%2FChangesFilters.pm;h=6e5da9cca00cda0711fe42498498c873070697cb;hb=66e13e020e7b338272a4516e3773c100826732c2;hp=8434770c704a213cd9139c16f1bbbf6eec5428bb;hpb=d3ce653ee2911fa765ccb338054c74e6da51e66b;p=deb%2Fpackages.git diff --git a/lib/Parse/DebianChangelog/ChangesFilters.pm b/lib/Parse/DebianChangelog/ChangesFilters.pm index 8434770..6e5da9c 100644 --- a/lib/Parse/DebianChangelog/ChangesFilters.pm +++ b/lib/Parse/DebianChangelog/ChangesFilters.pm @@ -90,7 +90,7 @@ sub email_to_ddpo { } sub bugs_to_bts { - (my $text = $_[0]) =~ s|Closes:\s*(?:Bug)?\#\d+(?:\s*,\s*(?:Bug)?\#\d+)* + (my $text = $_[0]) =~ s|closes:\s*(?:bug)?\#?\s?\d+(?:\s*,\s*(?:bug)?\#?\s?\d+)* |my $tmp = $&; { no warnings; $tmp =~ s@(Bug)?\#(\d+)@$1\#$2@ig; } "$tmp"