From 5b66928e1aeaa46fa4ab1620b73e18e10b5488e6 Mon Sep 17 00:00:00 2001
From: Wichert Akkerman <wakkerma@debian.org>
Date: Thu, 19 Apr 2001 13:22:19 +0000
Subject: [PATCH] Synchronize regexps to extract Cloes

---
 scripts/cl-debian.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scripts/cl-debian.pl b/scripts/cl-debian.pl
index 9731c2a7..f02899eb 100755
--- a/scripts/cl-debian.pl
+++ b/scripts/cl-debian.pl
@@ -139,7 +139,7 @@ $f{'Changes'} =~ s/\n$//;
 $f{'Changes'} =~ s/^/\n/;
 
 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);
 
-- 
2.39.5