blob: be6324a4b764c616708ec2f47b8111bcbb4dcab3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
|
#!/usr/bin/perl -w
=head1 NAME
dh_builddeb - build Debian binary packages
=cut
use strict;
use Debian::Debhelper::Dh_Lib;
=head1 SYNOPSIS
B<dh_builddeb> [S<I<debhelper options>>] [B<--destdir=>I<directory>] [B<--filename=>I<name>] [S<B<--> I<params>>]
=head1 DESCRIPTION
B<dh_builddeb> simply calls L<dpkg-deb(1)> to build a Debian package or
packages.
=head1 OPTIONS
=over 4
=item B<--destdir=>I<directory>
Use this if you want the generated F<.deb> files to be put in a directory
other than the default of "F<..>".
=item B<--filename=>I<name>
Use this if you want to force the generated .deb file to have a particular
file name. Does not work well if more than one .deb is generated!
=item B<--> I<params>
Pass I<params> to L<dpkg-deb(1)> when it is used to build the
package.
=item B<-u>I<params>
This is another way to pass I<params> to L<dpkg-deb(1)>.
It is deprecated; use B<--> instead.
=back
=cut
init(options => {
"filename=s" => \$dh{FILENAME},
"destdir=s" => \$dh{DESTDIR},
});
# Set the default destination directory.
if (! defined $dh{DESTDIR}) {
$dh{DESTDIR}='..';
}
if (! defined $dh{FILENAME}) {
$dh{FILENAME}='';
}
else {
$dh{FILENAME}="/$dh{FILENAME}";
}
my $processes=1;
my $max_procs=1;
if (defined $ENV{DEB_BUILD_OPTIONS} && $ENV{DEB_BUILD_OPTIONS}=~/parallel=(\d+)/) {
$max_procs=$1;
}
foreach my $package (@{$dh{DOPACKAGES}}) {
my $pid=0;
if ($max_procs > 1) {
while ($processes > $max_procs) {
wait;
$processes--;
}
$pid=fork();
}
if ($pid == 0) {
my $tmp=tmpdir($package);
if (exists $ENV{DH_ALWAYS_EXCLUDE} && length $ENV{DH_ALWAYS_EXCLUDE}) {
if (! compat(5)) {
complex_doit("find $tmp $dh{EXCLUDE_FIND} | xargs rm -rf");
}
else {
# Old broken code here for compatibility. Does not
# remove everything.
complex_doit("find $tmp -name $_ | xargs rm -rf")
foreach split(":", $ENV{DH_ALWAYS_EXCLUDE});
}
}
if (! is_udeb($package)) {
doit("dpkg-deb", @{$dh{U_PARAMS}}, "--build", $tmp, $dh{DESTDIR}.$dh{FILENAME});
}
else {
my $filename=$dh{FILENAME};
if (! $filename) {
$filename="/".udeb_filename($package);
}
doit("dpkg-deb", @{$dh{U_PARAMS}}, "--build", $tmp, $dh{DESTDIR}.$filename);
}
exit (0) if ($max_procs > 1);
}
else {
if (!defined $pid) {
error("fork failed! $!");
}
$processes++;
}
}
while (($max_procs > 0) && (wait != -1)) {}
=head1 SEE ALSO
L<debhelper(7)>
This program is a part of debhelper.
=head1 AUTHOR
Joey Hess <joeyh@debian.org>
=cut
|
