]> git.deb.at Git - deb/packages.git/commitdiff
Merge branch 'master' into debian-master
authorGerfried Fuchs <rhonda@debian.org>
Tue, 28 Jun 2011 05:58:21 +0000 (07:58 +0200)
committerGerfried Fuchs <rhonda@debian.org>
Tue, 28 Jun 2011 05:58:21 +0000 (07:58 +0200)
lib/Parse/DebianChangelog/ChangesFilters.pm
lib/Parse/DebianChangelog/Util.pm

index 4dfab20593870fdb01b1cae9c24b6a697e2ce169..835ee06cbf4bcb2b3342e336717ead73a1fe5394 100644 (file)
@@ -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+)@<a class="buglink" href="http://bugs.debian.org/$2">$1\#$2</a>@ig; }
     "$tmp"
index 9086249b7fedd027ebcde0b313a7eeb53e347805..f5c9accd148825f1c4df1b2eaa8ec1204b1d39fe 100644 (file)
@@ -67,7 +67,7 @@ sub find_closes {
     my $changes = shift;
     my @closes = ();
 
-    while ($changes && ($changes =~ /closes:\s*(?:bug)?\#?\s?\d+(?:,\s*(?:bug)?\#?\s?\d+)*/ig)) {
+    while ($changes && ($changes =~ /closes:\s*(?:bug)?\#?\s?\d+(?:\s*,\s*(?:bug)?\#?\s?\d+)*/ig)) {
        push(@closes, $& =~ /\#?\s?(\d+)/g);
     }