dpkg-source: fix permissions of tarballs in native source packages

* scripts/Dpkg/Source/Package/V3_0/native.pm: Fix permissions of
generated tarballs to "666 & ~umask()".

ChangeLog

@@ -1,3 +1,8 @@
+2008-04-25  Raphael Hertzog  <hertzog@debian.org>
+
+	* scripts/Dpkg/Source/Package/V3_0/native.pm: Fix permissions of
+	generated tarball to "666 & ~umask()".
+
 2008-04-14  Raphael Hertzog  <hertzog@debian.org>
 
 	* scripts/Dpkg/Fields.pm (find_custom_field, get_custom_field):

debian/changelog

@@ -14,6 +14,8 @@ dpkg (1.14.19) UNRELEASED; urgency=low
   * Fix dpkg-genchanges to detect udeb based on Package-Type control
     header instead of file extension analysis on uploaded files.
     Closes: #476113
+  * Fix dpkg-source to grant correct permissions to tarballs of native
+    source packages. Closes: #477784
   
   [ Helge Kreutzmann ]
   * Minor fixes and clarifications to man pages.

scripts/Dpkg/Source/Package/V3_0/native.pm

@@ -92,6 +92,8 @@ sub do_build {
     rename($newtar, $tarname) ||
         syserr(_g("unable to rename `%s' (newly created) to `%s'"),
                $newtar, $tarname);
+    chmod(0666 &~ umask(), $tarname) ||
+        syserr(_g("unable to change permission of `%s'"), $tarname);
 
     $self->add_file($tarname);