if (! -e $substvars || system("grep -q '^misc:Pre-Depends=' $substvars") != 0) {

complex_doit("echo misc:Pre-Depends= >> $substvars");

}

my $build_ids = undef;

if ( -d $ddeb_info_dir ) {

$build_ids = read_ddeb_build_ids($ddeb_info_dir);

}

if ( -d $ddeb_tmp) {

my $multiarch = package_multiarch($package);

my $replaces = read_ddeb_migration($ddeb_info_dir);

my $build_ids = read_ddeb_build_ids($ddeb_info_dir);

# Remove and override more or less every standard field.

my @ddeb_options = (qw(

doit("chown","0:0","${ddeb_tmp}/DEBIAN/control");

}

my @debug_info_params = ();

if ($build_ids) {

push(@debug_info_params, "-DX-Build-Ids=${build_ids}");

}

# Generate and install control file.

doit("dpkg-gencontrol", "-p$package", "-l$changelog", "-T$substvars",

"-P$tmp",@{$dh{U_PARAMS}});

"-P$tmp", @debug_info_params, @{$dh{U_PARAMS}});

# This chmod is only necessary if the user sets the umask to

# something odd.

use strict;

use warnings;

use File::Find;

use File::Path 'make_path';

use Debian::Debhelper::Dh_Lib;

=head1 SYNOPSIS

doit($objcopy, "--only-keep-debug", "--compress-debug-sections", $file, $debug_path);

}

if ($use_build_id > 1) {

my $path = "debian/.debhelper/${package}/ddeb-build-ids";

if ($use_build_id) {

my $debugpackagename=$package;

if (ref $dh{DEBUGPACKAGES}) {

$debugpackagename=@{$dh{DEBUGPACKAGES}}[0];

}

my $internal_path = "debian/.debhelper/${debugpackagename}";

make_path($internal_path) if ! -d $internal_path;

my $path = "${internal_path}/ddeb-build-ids";

open(my $fd, '>>', $path) or error("open $path failed: $!");

print {$fd} "$debug_build_id ";

close($fd) or error("close $path failed: $!");