use Memoize;
use Carp;
+use POSIX;
use Data::Dumper;
use Debian::Dgit qw(:DEFAULT $wa);
$prdelim = "\n";
};
- my $build_start = sub {
- my ($msg, $parent) = @_;
- $prline->(" $msg");
- $build = $parent;
- no warnings qw(exiting); last;
- };
-
my $bomb = sub { # usage: return $bomb->();
print $report " Unprocessable" if $report;
$prprdelim->();
};
my $build;
+ my $breakwater;
+
+ my $build_start = sub {
+ my ($msg, $parent) = @_;
+ $prline->(" $msg");
+ $build = $parent;
+ no warnings qw(exiting); last;
+ };
for (;;) {
$cl = classify $cur;
next;
} elsif ($method eq 'RecordBreakwaterTip') {
$breakwater = $build;
- last if $wantbrwonly;
next;
} elsif ($method eq 'DgitImportDebianUpdate') {
$read_tree_debian->($cltree);
}
};
- runcmd @git, qw(diff-tree --quiet),
- map { $wantdebonly ? "$_:debian" : $_ }
- $input, $build;
+ runcmd @git, qw(diff-tree --quiet), $input, $build;
return ($build, $breakwater);
}