chiark / gitweb /
dgit: Drop an obsolete xxx comment
[dgit.git] / tests / pretend-pbuilder
1 #!/usr/bin/perl
2
3 use strict;
4 use warnings;
5
6 use Getopt::Long;
7
8 my $operation = shift;
9 die "pbuilder: you should use me only to build, dgit"
10   unless ($operation eq "build" || $operation eq "b");
11
12 my $debbuildopts = undef;
13 my $distribution = undef;
14 GetOptions('debbuildopts=s' => \$debbuildopts,
15            'distribution=s' => \$distribution);
16
17 # ignore user args; last argument has to be the .dsc filename
18 my $dsc = $ARGV[-1];
19 die "pbuilder: last argument has wrong file extension"
20   unless ($dsc =~ m/^(.*)_.*\.dsc$/);
21
22 system "dpkg-source -x $dsc pbuilder";
23 chdir 'pbuilder';
24 system <<END
25 dpkg-buildpackage --changes-option=-DDistribution=$distribution $debbuildopts
26 END