diff options
-rwxr-xr-x | git-s | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -6,12 +6,12 @@ git status -s | perl -ne ' push @{$x{$1}}, $2 if /^(.). (.*)/; push @{$y{$1}}, $2 if /^.(.) (.*)/; END { - delete $x{"?"}; - for ([">" => \%x], ["." => \%y]) { + delete $x{"?"}; delete $x{" "}; delete $y{" "}; + for (["index" => \%x], ["tree" => \%y]) { ($n, $h) = @$_; + print "$n:" if values %$h; for (sort keys %$h) { - next if $_ eq " "; - print "$n$_"; + print " $_ "; print " $_" for @{$h->{$_}}; print "\n"; } |