瀏覽代碼

Synchronize regexps to extract Cloes

Wichert Akkerman 25 年之前
父節點
當前提交
5b66928e1a
共有 1 個文件被更改,包括 1 次插入1 次删除
  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);