chiark / gitweb /
git-debrebase: keycommits: Move up $cl (nfc)
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Sat, 16 Jun 2018 15:44:36 +0000 (16:44 +0100)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Sat, 16 Jun 2018 21:40:14 +0000 (22:40 +0100)
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

index fbf2a58..cb0276b 100755 (executable)
@@ -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;