Make '#' optional in Closes: tags.

ChangeLog

@@ -1,3 +1,7 @@
+Sat Dec 23 03:06:19 CST 2000 Adam Heath <doogie@debian.org>
+
+  * scripts/cl-debian.pl: Make '#' optional in Closes: tags.
+
 Sat Dec 23 02:11:27 CST 2000 Adam Heath <doogie@debian.org>
 
   * scripts/dpkg-buildpackage.sh: Add -t to -h output.

debian/changelog

@@ -1,5 +1,6 @@
 dpkg (1.8.0) unstable; urgency=low
 
+  * Make '#' optional in Closes: tags.  Closes: Bug#63137.
   * Add -t to -h output in dpkg-buildpackage:  Closes: Bug#49598.
   * Fix typo in --compare-versions error message.  Closes: Bug#66474.
   * -R doesn't mean --root.  Closes: Bug#66068, #72013

scripts/cl-debian.pl

@@ -138,7 +138,7 @@ $expect eq 'next heading or eof' || die "found eof where expected $expect";
 $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);
 }
 $f{'Closes'} = join(' ',sort { $a <=> $b} @closes);