summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorIan Jackson <ijackson@chiark.greenend.org.uk>2018-06-16 16:44:36 +0100
committerIan Jackson <ijackson@chiark.greenend.org.uk>2018-06-16 22:40:14 +0100
commitef57e3b00db07b4a139682353c16addfb72f1a0f (patch)
tree0b0144cb491fdf10e11145b8da26a49bfb6d18c9
parente5fa171de2df26246f6bc1efeb6b101d1588d700 (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>
-rwxr-xr-xgit-debrebase3
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;