We are going to want this within the scope of the anon sub $x.
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
my ($anchor, $breakwater);
my $clogonly;
my ($anchor, $breakwater);
my $clogonly;
my $x = sub {
my ($cb, $tagsfx, $why) = @_;
my $m = "branch needs laundering (run git-debrebase): $why";
my $x = sub {
my ($cb, $tagsfx, $why) = @_;
my $m = "branch needs laundering (run git-debrebase): $why";
$cb->("unclean-$tagsfx", $why);
};
for (;;) {
$cb->("unclean-$tagsfx", $why);
};
for (;;) {
- my $cl = classify $head;
my $ty = $cl->{Type};
if ($ty eq 'Packaging') {
$breakwater //= $clogonly;
my $ty = $cl->{Type};
if ($ty eq 'Packaging') {
$breakwater //= $clogonly;