diff options
author | Tom Ryder <tom@sanctum.geek.nz> | 2017-08-04 14:56:59 +1200 |
---|---|---|
committer | Tom Ryder <tom@sanctum.geek.nz> | 2017-08-04 14:56:59 +1200 |
commit | 34f00a38682b4927a9b9ee01859b80541f2f3336 (patch) | |
tree | e64f892117c5b866442be811d53abeef5138d9c1 /checkem | |
parent | Load up only required stat() fields (diff) | |
download | checkem-34f00a38682b4927a9b9ee01859b80541f2f3336.tar.gz checkem-34f00a38682b4927a9b9ee01859b80541f2f3336.zip |
Remove unneeded loop labels
Diffstat (limited to 'checkem')
-rwxr-xr-x | checkem | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -67,18 +67,18 @@ find { # If there's more than one filename of any of the sizes, look for hard links, # checksum them if not linked, and push them into a sums table my ( %sums, $dig ); -FS: for my $fs ( grep { @{$_} > 1 } values %sizes ) { +for my $fs ( grep { @{$_} > 1 } values %sizes ) { # Keep a temporary table of inodes to catch hard links my %inos; # Iterate through each file in the list - F: for my $f ( @{$fs} ) { + for my $f ( @{$fs} ) { # Catch hard links on compliant systems by keeping a dev/inode hash my ( $dev, $ino ) = @{ $f->{st} }{qw(dev ino)}; if ( $dev && $ino ) { - next F if exists $inos{$dev}{$ino}; + next if exists $inos{$dev}{$ino}; $inos{$dev}{$ino} = $f; } |