From ef57e3b00db07b4a139682353c16addfb72f1a0f Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 16 Jun 2018 16:44:36 +0100
Subject: 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>
---
 git-debrebase | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'git-debrebase')

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;
-- 
cgit v1.2.3