Indicate clean state
authorH.Merijn Brand - Tux <h.m.brand@xs4all.nl>
Sun, 13 Nov 2016 13:06:00 +0000 (14:06 +0100)
committerH.Merijn Brand - Tux <h.m.brand@xs4all.nl>
Sun, 13 Nov 2016 13:06:00 +0000 (14:06 +0100)
In this case we'd just have to wait for upstream to accept the PR

ls-diff.pl

index 33eca84..08f55b5 100755 (executable)
@@ -86,11 +86,13 @@ foreach my $u (sort { $m{$b}{gd} <=> $m{$a}{gd} || $m{$b}{dp} <=> $m{$a}{dp} } k
        $g->{unit} =~ $opt_p or next;
        }
 
+    my $su = $u;
+    $gd || $dp || $gp or $su .= "\t** NO CHANGES LEFT **";
     printf "%3d %5d/%3d %6d %5d/%3d %6d %5d/%3d %6d %s\n", $i++,
        $g->{size}, $g->{lines}, $gd,
        $d->{size}, $d->{lines}, $dp,
        $p->{size}, $p->{lines}, $gp,
-       $u;
+       $su;
     $opt_l and say "    $_ $m{$u}{$_}{dir}/$u" for qw( g d p );
 
     extdiff ($u, sort split // => $opt_d);