X-Git-Url: https://git.deb.at/?a=blobdiff_plain;f=lib%2FParse%2FDebianChangelog%2FChangesFilters.pm;h=835ee06cbf4bcb2b3342e336717ead73a1fe5394;hb=49b3b99bcbd6acc64f44eb5a8ac3bf69c232ca0e;hp=4dfab20593870fdb01b1cae9c24b6a697e2ce169;hpb=04cd718d1deb2562a0e8c851a604f5b36b7eed8b;p=deb%2Fpackages.git diff --git a/lib/Parse/DebianChangelog/ChangesFilters.pm b/lib/Parse/DebianChangelog/ChangesFilters.pm index 4dfab20..835ee06 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"