From bb17f303ae14541b2d5ed39d8344cb45050b385e Mon Sep 17 00:00:00 2001
From: Guy Maor <maor@debian.org>
Date: Sun, 31 Jan 1999 13:23:56 +0000
Subject: [PATCH] new upload mechanism

---
 scripts/cl-debian.pl       | 8 +++++++-
 scripts/controllib.pl      | 2 +-
 scripts/dpkg-genchanges.pl | 5 +++--
 3 files changed, 11 insertions(+), 4 deletions(-)

diff --git a/scripts/cl-debian.pl b/scripts/cl-debian.pl
index dd2eb1e5..dc823f2d 100755
--- a/scripts/cl-debian.pl
+++ b/scripts/cl-debian.pl
@@ -42,7 +42,8 @@ while (@ARGV) {
 
 %mapkv=(); # for future use
 $i=100;grep($fieldimps{$_}=$i--,
-          qw(Source Version Distribution Urgency Maintainer Date Changes));
+          qw(Source Version Distribution Urgency Maintainer Date Closes
+	     Changes));
 $i=1;grep($urgencies{$_}=$i++,
           qw(low medium routine high urgent emergency));
 
@@ -137,6 +138,11 @@ $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)?\#\d+(?:,\s*(?:bug)?\#\d+)*/ig) {
+  push(@closes, $& =~ /\#(\d+)/g);
+}
+$f{'Closes'} = join(' ',sort { $a <=> $b} @closes);
+
 &outputclose(0);
 
 sub clerror { &error("$_[0], at changelog line $."); }
diff --git a/scripts/controllib.pl b/scripts/controllib.pl
index 6b944183..de961cf7 100755
--- a/scripts/controllib.pl
+++ b/scripts/controllib.pl
@@ -3,7 +3,7 @@ $parsechangelog= 'dpkg-parsechangelog';
 
 grep($capit{lc $_}=$_, qw(Pre-Depends Standards-Version Installed-Size));
 
-$substvar{'Format'}= 1.5;
+$substvar{'Format'}= 1.6;
 $substvar{'Newline'}= "\n";
 $substvar{'Space'}= " ";
 $substvar{'Tab'}= "\t";
diff --git a/scripts/dpkg-genchanges.pl b/scripts/dpkg-genchanges.pl
index 35b1f904..06e00c25 100755
--- a/scripts/dpkg-genchanges.pl
+++ b/scripts/dpkg-genchanges.pl
@@ -49,7 +49,8 @@ Options:  -b                     binary-only build - no source files
 
 $i=100;grep($fieldimps{$_}=$i--,
           qw(Format Date Source Binary Architecture Version
-             Distribution Urgency Maintainer Description Changes Files));
+             Distribution Urgency Maintainer Description Closes Changes
+	     Files));
 
 while (@ARGV) {
     $_=shift(@ARGV);
@@ -172,7 +173,7 @@ for $_ (keys %fi) {
 #print STDERR "L key >$_< value >$v<\n";
         if (m/^Source$/) {
             &setsourcepackage;
-        } elsif (m/^(Version|Maintainer|Changes|Urgency|Distribution|Date)$/) {
+        } elsif (m/^(Version|Maintainer|Changes|Urgency|Distribution|Date|Closes)$/) {
             $f{$_}= $v;
         } elsif (s/^X[BS]*C[BS]*-//i) {
             $f{$_}= $v;
-- 
2.39.5