summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xdh_elpa12
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/");