compute elpa package name from debian binary package name.

This is probably not the best solution, but it works for now.

1 files changed, 6 insertions, 1 deletions

diff --git a/dh_elpa b/dh_elpa
index 562d7e4..b3ed928 100755
--- a/dh_elpa
+++ b/dh_elpa
@@ -41,6 +41,11 @@ foreach my $package (@{$dh{DOPACKAGES}}) {
   my $tmp=tmpdir($package);
   my $file=pkgfile($package,"elpa");
 
+  my $elpapkg=$package;
+  # TODO do this more sanely or at least allow an override
+  $elpapkg =~ s/^elpa-//;
+  verbose_print("Using elpa package name $elpapkg");
+
   my @files;
 
   # Call isnative because it sets $dh{VERSION}
@@ -62,7 +67,7 @@ foreach my $package (@{$dh{DOPACKAGES}}) {
     my $tempdir = tempdir();
     my $version = $dh{VERSION} or die "version not found!";
     $version =~ s/-[^-]+//;  # strip Debian version
-    my $pkg_dir = "$package-$version";
+    my $pkg_dir = "$elpapkg-$version";
 
     $pkg_file = "$tempdir/$pkg_dir.tar";
     mkdir "$tempdir/$pkg_dir" or die "$!";