From 81499f41451871a02d01b9c47cb61800578358bf Mon Sep 17 00:00:00 2001
From: Raphael Hertzog <hertzog@debian.org>
Date: Thu, 17 Jan 2008 09:01:37 +0100
Subject: [PATCH] dpkg-genchanges: Reinstate support of the ${Format} substvar

* scripts/dpkg-genchanges.pl: As documented by deb-substvars(5), one can
use the ${Format} substvar to override the format of the .changes file.
---
 ChangeLog                  | 5 +++++
 scripts/dpkg-genchanges.pl | 3 ++-
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 74c226a9..acc6ee1b 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2008-01-17  Raphael Hertzog  <hertzog@debian.org>
+
+	* scripts/dpkg-genchanges.pl: Reinstate support of the ${Format}
+	substvars.
+
 2008-01-17  Samuel Thibault  <samuel.thibault@ens-lyon.org>,
             Guillem Jover  <guillem@debian.org>
 
diff --git a/scripts/dpkg-genchanges.pl b/scripts/dpkg-genchanges.pl
index f6ada091..e88092f6 100755
--- a/scripts/dpkg-genchanges.pl
+++ b/scripts/dpkg-genchanges.pl
@@ -64,6 +64,7 @@ my $forcechangedby;
 my $since;
 
 my $substvars = Dpkg::Substvars->new();
+$substvars->set("Format", $changes_format);
 
 use constant SOURCE     => 1;
 use constant ARCH_DEP   => 2;
@@ -411,7 +412,7 @@ if (!is_binaryonly) {
 print(STDERR "$progname: $origsrcmsg\n") ||
     &syserr(_g("write original source message")) unless $quiet;
 
-$fields->{'Format'} = $changes_format;
+$fields->{'Format'} = '${Format}'; # Use value stored in substvars
 
 if (!defined($fields->{'Date'})) {
     chomp(my $date822 = `date -R`);
-- 
2.39.5