Add support of Dm-Upload-Allowed field

* scripts/Dpkg/Fields.pm, scripts/dpkg-source.pl: Add support of
Dm-Upload-Allowed field. It automatically ends up in the dsc.

ChangeLog

@@ -1,3 +1,8 @@
+2008-01-12  Raphael hertzog  <hertzog@debian.org>
+
+	* scripts/Dpkg/Fields.pm, scripts/dpkg-source.pl: Add support of
+	Dm-Upload-Allowed field. It automatically ends up in the dsc.
+
 2008-01-12  Raphael hertzog  <hertzog@debian.org>
 
 	* scripts/Dpkg/Fields.pm: Define variables containing

debian/changelog

@@ -30,6 +30,7 @@ dpkg (1.14.16) UNRELEASED; urgency=low
   * Also force version in ${binary:Version} if dpkg-gencontrol -v<version>
     is used. That way we're consistent with the definition of that variable
     in deb-substvars(5). Closes: #433477
+  * Add support of Dm-Upload-Allowed field. Closes: #453400
 
   [ Updated manpages translations ]
   * Fix typo in French. Closes: #460021

scripts/Dpkg/Fields.pm

@@ -16,7 +16,7 @@ our %EXPORT_TAGS = ('list' => [qw(%control_src_fields %control_pkg_fields
 # Some variables (list of fields)
 our %control_src_fields;
 our %control_pkg_fields;
-$control_src_fields{$_} = 1 foreach (qw(Bugs
+$control_src_fields{$_} = 1 foreach (qw(Bugs Dm-Upload-Allowed
     Homepage Origin Maintainer Priority Section Source Standards-Version
     Uploaders Vcs-Browser Vcs-Arch Vcs-Bzr Vcs-Cvs Vcs-Darcs Vcs-Git Vcs-Hg
     Vcs-Mtn Vcs-Svn));

scripts/dpkg-source.pl

@@ -117,9 +117,9 @@ use Cwd;
 textdomain("dpkg-dev");
 
 my @dsc_fields = (qw(Format Source Binary Architecture Version Origin
-                     Maintainer Uploaders Homepage Standards-Version
-                     Vcs-Browser Vcs-Arch Vcs-Bzr Vcs-Cvs Vcs-Darcs
-                     Vcs-Git Vcs-Hg Vcs-Mtn Vcs-Svn),
+		     Maintainer Uploaders Dm-Upload-Allowed Homepage
+		     Standards-Version Vcs-Browser Vcs-Arch Vcs-Bzr
+		     Vcs-Cvs Vcs-Darcs Vcs-Git Vcs-Hg Vcs-Mtn Vcs-Svn),
                   @src_dep_fields);
 
 
@@ -309,6 +309,7 @@ if ($opmode eq 'build') {
 	if (m/^Source$/i) {
 	    set_source_package($v);
 	} elsif (m/^(Standards-Version|Origin|Maintainer|Homepage)$/i ||
+		 m/^Dm-Upload-Allowed$/i ||
 		 m/^Vcs-(Browser|Arch|Bzr|Cvs|Darcs|Git|Hg|Mtn|Svn)$/i) {
 	    $fields->{$_} = $v;
 	} elsif (m/^Uploaders$/i) {