r158: Initial Import

diff --git a/debian/changelog b/debian/changelog
index 5cdf2f47c0b076eebe1ffbfee822fbd6277aaf65..2a15b97ab4a30eec9761ccd4f910d6b10fff5130 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+debhelper (1.2.22) unstable; urgency=low
+
+  * Reversed change in last version; don't clobber mode (#31628).
+
+ -- Joey Hess <joeyh@master.debian.org>  Fri,  8 Jan 1999 15:01:25 -0800
+
 debhelper (1.2.21) unstable; urgency=low
 
   * dh_installdocs: Added doc-base support, if debian/<package>.doc-base

diff --git a/dh_suidregister b/dh_suidregister
index 951984fe62c9dc8ce5f7ef1907cc70b0a8d36885..d5b10ebd33ae05392bc40c474bff3c1e829a2b83 100755 (executable)
--- a/dh_suidregister
+++ b/dh_suidregister
@@ -52,7 +52,7 @@ foreach $PACKAGE (@{$dh{DOPACKAGES}}) {
                $group=getgrgid($gid);
                # Note that I have to print mode in ocal, stripping file type.
                $sedstr=sprintf("s:#FILE#:$file:;s/#PACKAGE#/$PACKAGE/;s/#OWNER#/$user/;s/#GROUP#/$group/;s/#PERMS#/%#o/",
-                               $mode & 00777);
+                               $mode & 07777);
 
                autoscript($PACKAGE,"postinst","postinst-suid",$sedstr);
                autoscript($PACKAGE,"postrm","postrm-suid","$sedstr");