From 88009e42a16d0154bbf5cf2b859bbe8c9daa5223 Mon Sep 17 00:00:00 2001 From: "Ruud H.G. van Tol" Date: Fri, 27 Oct 2017 10:48:44 +0200 Subject: [PATCH] Revert "Tweaks" This reverts commit e01ea1c0de2a6b5686588c1be3c45e20647402b2. --- script/showdups | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/script/showdups b/script/showdups index 30ae498..ef0c084 100755 --- a/script/showdups +++ b/script/showdups @@ -8,11 +8,12 @@ open my $fh, "-|", "git ls-tree -r HEAD" my %fs_sha1_path; -while ( my $line= <$fh> ) { +while ( my $line = <$fh> ) { chomp $line; if ( $line =~ m{ \A \d+ \s+ \w+ \s+ (\w+) \s+ (.*) \z }x ) { - my ( $sha1, $path )= ($1, $2 ); + my $sha1= $1; + my $path= $2; if ( -f $path and !-l $path ) { my $fs= -s $path; $fs and push @{ $fs_sha1_path{ $fs }{ $sha1 } }, $path; @@ -21,11 +22,10 @@ while ( my $line= <$fh> ) { } for my $fs ( sort { $a <=> $b } keys %fs_sha1_path ) { - for my $sha1 ( sort keys %{ $fs_sha1_path{ $fs } } ) { + for my $sha1 (keys %{ $fs_sha1_path{ $fs } } ) { if ( @{ $fs_sha1_path{ $fs }{ $sha1 } } > 1 ) { for my $path ( sort @{ $fs_sha1_path{ $fs }{ $sha1 } } ) { - say sprintf "%10d %s..%s %s", - $fs, substr($sha1,0,7), substr($sha1,-3), $path; + say sprintf "%10d %s %s", $fs, substr($sha1,0,7)."..".substr($sha1,-3), $path; } say '-', ' -' x 39; } @@ -35,3 +35,4 @@ for my $fs ( sort { $a <=> $b } keys %fs_sha1_path ) { exit; __END__ +