Remove the last calls to chown(getfowner(), ...)

* scripts/dpkg-distaddfile.pl, scripts/dpkg-gencontrol.pl: Delete
the chown(getfowner(), ...) on new files. It doesn't seem to do anything
useful anymore as it got dropped from several other scripts over the years
without problems. This enables the removal of getfowner() from
controllib.pl.

ChangeLog

@@ -47,6 +47,11 @@
 	* scripts/dpkg-genchanges.pl, scripts/dpkg-gencontrol.pl,
 	scripts/dpkg-source.pl: Use the new set_source_package.
 
+	* scripts/dpkg-distaddfile.pl, scripts/dpkg-gencontrol.pl: Delete
+	the chown(getfowner(), ...) on new files. It doesn't seem to do
+	anything useful anymore as it got dropped from several other
+	scripts over the years without problems.
+
 2007-12-28  Raphael Hertzog  <hertzog@debian.org>
 
 	* scripts/Dpkg/ErrorHandling.pm (syntaxerr): New function to

scripts/dpkg-distaddfile.pl

@@ -9,9 +9,6 @@ use Dpkg;
 use Dpkg::Gettext;
 use Dpkg::ErrorHandling qw(error syserr usageerr);
 
-push(@INC,$dpkglibdir);
-require 'controllib.pl';
-
 textdomain("dpkg-dev");
 
 my $fileslistfile = 'debian/files';
@@ -63,8 +60,6 @@ my ($file, $section, $priority) = @ARGV;
 
 $fileslistfile="./$fileslistfile" if $fileslistfile =~ m/^\s/;
 open(Y,"> $fileslistfile.new") || &syserr(_g("open new files list file"));
-chown(getfowner(), "$fileslistfile.new") 
-		|| &syserr(_g("chown new files list file"));
 if (open(X,"< $fileslistfile")) {
     while (<X>) {
         s/\n$//;

scripts/dpkg-gencontrol.pl

@@ -323,8 +323,6 @@ for my $f (keys %remove) {
 $fileslistfile="./$fileslistfile" if $fileslistfile =~ m/^\s/;
 open(Y,"> $fileslistfile.new") || &syserr(_g("open new files list file"));
 binmode(Y);
-chown(getfowner(), "$fileslistfile.new") 
-		|| &syserr(_g("chown new files list file"));
 if (open(X,"< $fileslistfile")) {
     binmode(X);
     while (<X>) {