diff options
author | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2018-06-16 16:44:36 +0100 |
---|---|---|
committer | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2018-06-16 22:40:14 +0100 |
commit | ef57e3b00db07b4a139682353c16addfb72f1a0f (patch) | |
tree | 0b0144cb491fdf10e11145b8da26a49bfb6d18c9 /git-debrebase | |
parent | e5fa171de2df26246f6bc1efeb6b101d1588d700 (diff) |
git-debrebase: keycommits: Move up $cl (nfc)
We are going to want this within the scope of the anon sub $x.
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
Diffstat (limited to 'git-debrebase')
-rwxr-xr-x | git-debrebase | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/git-debrebase b/git-debrebase index fbf2a58..cb0276b 100755 --- a/git-debrebase +++ b/git-debrebase @@ -561,6 +561,7 @@ sub keycommits ($;$$$) { my ($anchor, $breakwater); my $clogonly; + my $cl; my $x = sub { my ($cb, $tagsfx, $why) = @_; my $m = "branch needs laundering (run git-debrebase): $why"; @@ -569,7 +570,7 @@ sub keycommits ($;$$$) { $cb->("unclean-$tagsfx", $why); }; for (;;) { - my $cl = classify $head; + $cl = classify $head; my $ty = $cl->{Type}; if ($ty eq 'Packaging') { $breakwater //= $clogonly; |