X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=dgit.git;a=blobdiff_plain;f=dgit;h=695f2b7ce9bd43210baee3236311c0a8c3574cea;hp=396213475b9cc38ce8d8a63a44231ffe60e329b4;hb=a14c832fb36fa6ccccc8d8a02507983bec9adb52;hpb=9de02f9d56e123144548a556e1ce32e9ced24f0f

diff --git a/dgit b/dgit
index 39621347..695f2b7c 100755
--- a/dgit
+++ b/dgit
@@ -6226,16 +6226,27 @@ sub massage_dbp_args ($;$) {
     my $dmode = '-F';
     foreach my $l ($cmd, $xargs) {
 	next unless $l;
-	@$l = grep { !(m/^-[SgGFABb]$/s and $dmode=$_) } @$l;
+	@$l = grep { !(m/^-[SgGFABb]$|^--build=/s and $dmode=$_) } @$l;
     }
     push @$cmd, '-nc';
 #print STDERR "MASS1 ",Dumper($cmd, $xargs, $dmode);
     my $r = WANTSRC_BUILDER;
     printdebug "massage split $dmode.\n";
-    $r = $dmode =~ m/[S]/  ?  WANTSRC_SOURCE :
-      $dmode =~ y/gGF/ABb/ ?  WANTSRC_SOURCE | WANTSRC_BUILDER :
-      $dmode =~ m/[ABb]/   ?                   WANTSRC_BUILDER :
-      die "$dmode ?";
+    if ($dmode =~ s/^--build=//) {
+	$r = 0;
+	my @d = split /,/, $dmode;
+	$r |= WANTSRC_SOURCE  if grep { s/^full$/binary/ } @d;
+	$r |= WANTSRC_SOURCE  if grep { s/^source$// } @d;
+	$r |= WANTSRC_BUILDER if grep { m/./ } @d;
+	fail "Wanted to build nothing!" unless $r;
+	$dmode = '--build='. join ',', grep m/./, @d;
+    } else {
+	$r =
+	  $dmode =~ m/[S]/     ?  WANTSRC_SOURCE :
+	  $dmode =~ y/gGF/ABb/ ?  WANTSRC_SOURCE | WANTSRC_BUILDER :
+	  $dmode =~ m/[ABb]/   ?                   WANTSRC_BUILDER :
+	  die "$dmode ?";
+    }
     printdebug "massage done $r $dmode.\n";
     push @$cmd, $dmode;
 #print STDERR "MASS2 ",Dumper($cmd, $xargs, $r);
@@ -6324,9 +6335,10 @@ sub postbuild_mergechanges_vanilla ($) {
 sub cmd_build {
     build_prep_early();
     $buildproductsdir eq '..' or print STDERR <<END;
-$us: warning: build-products-dir set, but not supported by dgit build
-$us: warning: things may go wrong or files may go to the wrong place
+$us: warning: build-products-dir set, but not supported by dpkg-buildpackage
+$us: warning: build-products-dir will be ignored; files will go to ..
 END
+    $buildproductsdir = '..';
     my @dbp = (@dpkgbuildpackage, qw(-us -uc), changesopts_initial(), @ARGV);
     my $wantsrc = massage_dbp_args \@dbp;
     build_prep($wantsrc);