set mode of different emacsen-common pieces appropriately.

Thanks lintian!

1 files changed, 7 insertions, 5 deletions

diff --git a/dh_elpa b/dh_elpa
index 2506dad..368c180 100755
--- a/dh_elpa
+++ b/dh_elpa
@@ -78,7 +78,7 @@ sub doit_quietly {
 my $templatedir = "/usr/share/debhelper/dh_elpa/emacsen-common";
 
 sub maybe_install_helper{
-  my ($package,$piece)=@_;
+  my ($package,$piece, $mode)=@_;
   my $file=pkgfile($package,"emacsen-$piece");
 
   my $tmp=tmpdir($package);
@@ -89,7 +89,8 @@ sub maybe_install_helper{
     if (! -d "$ecdest/$piece") {
       doit("install","-d","$ecdest/$piece");
     }
-    doit("install","-m0755","$templatedir/$piece",
+
+    doit("install","-m$mode","$templatedir/$piece",
          "$ecdest/$piece/$package");
   }
 }
@@ -112,9 +113,10 @@ foreach my $package (@{$dh{DOPACKAGES}}) {
   my $file=pkgfile($package,"elpa");
 
   if ($dh{BYTECOMPILE}) {
-    foreach my $piece (qw{compat install remove}) {
-      maybe_install_helper($package,$piece);
-    }
+    maybe_install_helper($package,'compat','0644');
+    maybe_install_helper($package,'install','0755');
+    maybe_install_helper($package,'remove','0755');
+
     if (! $dh{NOSCRIPTS}) {
       autoscript($package,"postinst","postinst-emacsen",
                  "s/#PACKAGE#/$package/");