diff --git a/Debian/Debhelper/Dh_Lib.pm b/Debian/Debhelper/Dh_Lib.pm index 348144e..cd5f8dd 100644 --- a/Debian/Debhelper/Dh_Lib.pm +++ b/Debian/Debhelper/Dh_Lib.pm @@ -23,6 +23,7 @@ use vars qw(@EXPORT %dh); &cross_command &set_buildflags &get_buildoption &install_dh_config_file &error_exitcode &package_multiarch &install_file &install_prog &install_lib &install_dir + &ddeb_filename ); my $max_compat=10; @@ -982,6 +983,13 @@ sub udeb_filename { return _xdeb_filename($package, 'udeb'); } +# Generates the target that is used for a ddeb package. +sub ddeb_target { + my ($package, $ext) = @_; + + return _xdeb_filename($package, $ext, $package."-dbgsym"); +} + # Handles #DEBHELPER# substitution in a script; also can generate a new # script from scratch if none exists but there is a .debhelper file for it. sub debhelper_script_subst { diff --git a/dh_builddeb b/dh_builddeb index e36f0a3..e673a74 100755 --- a/dh_builddeb +++ b/dh_builddeb @@ -128,8 +128,10 @@ foreach my $package (@{$dh{DOPACKAGES}}) { # the ddeb. my @args = default_compressor_args(["-z1", "-Zxz", "-Sextreme"], @{$dh{U_PARAMS}}); + my $target = $dh{DESTDIR}."/". + ddeb_filename($package, is_udeb($package) ? "udeb" : "deb"); doit("dpkg-deb", @args, - "--build", $ddeb_tmpdir, $dh{DESTDIR}); + "--build", $ddeb_tmpdir, $target); } else { warning("Not building ddeb for ${package} as it has no control file"); warning("Please use dh_gencontrol to avoid this issue");