Bladeren bron

Synchronize regexps to extract Cloes

Wichert Akkerman 25 jaren geleden
bovenliggende
commit
5b66928e1a
1 gewijzigde bestanden met toevoegingen van 1 en 1 verwijderingen
  1. 1 1
      scripts/cl-debian.pl

+ 1 - 1
scripts/cl-debian.pl

@@ -139,7 +139,7 @@ $f{'Changes'} =~ s/\n$//;
 $f{'Changes'} =~ s/^/\n/;
 $f{'Changes'} =~ s/^/\n/;
 
 
 while ($f{'Changes'} =~ /closes:\s*(?:bug)?\#?\s?\d+(?:,\s*(?:bug)?\#?\s?\d+)*/ig) {
 while ($f{'Changes'} =~ /closes:\s*(?:bug)?\#?\s?\d+(?:,\s*(?:bug)?\#?\s?\d+)*/ig) {
-  push(@closes, $& =~ /\#\s?(\d+)/g);
+  push(@closes, $& =~ /\#?\s?(\d+)/g);
 }
 }
 $f{'Closes'} = join(' ',sort { $a <=> $b} @closes);
 $f{'Closes'} = join(' ',sort { $a <=> $b} @closes);