X-Git-Url: https://git.deb.at/?a=blobdiff_plain;f=lib%2FParse%2FDebianChangelog%2FChangesFilters.pm;h=835ee06cbf4bcb2b3342e336717ead73a1fe5394;hb=2df82b1faab891977631dc568e8e1e75663aaaa7;hp=8434770c704a213cd9139c16f1bbbf6eec5428bb;hpb=08f111d6668d5278a64d304fbc3bae6be86e6a94;p=deb%2Fpackages.git diff --git a/lib/Parse/DebianChangelog/ChangesFilters.pm b/lib/Parse/DebianChangelog/ChangesFilters.pm index 8434770..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" @@ -102,7 +102,7 @@ sub cve_to_mitre { my ($text, $cgi) = @_; $text =~ s!\b(?:CVE|CAN)-\d{4}-\d{4}\b - !$cgi->a({ -href=>"http://cve.mitre.org/cgi-bin/cvename.cgi?name=$&" }, $&) + !$cgi->a({ -href=>"http://security-tracker.debian.org/tracker/$&" }, $&) !xego; return $text; }