In metaconfig.git, the branch master has been updated <http://perl5.git.perl.org/metaconfig.git/commitdiff/ae6a7057e4d2551a1462df59ec93f4a3629bb896?hp=1cce64a13554d0477c5d7cca025fbe772cdf9668>
- Log ----------------------------------------------------------------- commit ae6a7057e4d2551a1462df59ec93f4a3629bb896 Author: H.Merijn Brand - Tux <[email protected]> Date: Sun Nov 13 14:06:00 2016 +0100 Indicate clean state In this case we'd just have to wait for upstream to accept the PR ----------------------------------------------------------------------- Summary of changes: ls-diff.pl | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/ls-diff.pl b/ls-diff.pl index 33eca84..08f55b5 100755 --- a/ls-diff.pl +++ b/ls-diff.pl @@ -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); -- perl5 metaconfig repository
