diff options
author | Tom Ryder <tom@sanctum.geek.nz> | 2017-08-10 01:45:03 +1200 |
---|---|---|
committer | Tom Ryder <tom@sanctum.geek.nz> | 2017-08-10 01:45:03 +1200 |
commit | 61c685bb0e9e3da94970a42de3af19a5a595076e (patch) | |
tree | fe9e123bfa6f7d1b25ffdd9a6809a7fef31b523b | |
parent | Perl 5.6 compatible syntax (diff) | |
download | checkem-61c685bb0e9e3da94970a42de3af19a5a595076e.tar.gz checkem-61c685bb0e9e3da94970a42de3af19a5a595076e.zip |
Merge obvious two blocks
-rwxr-xr-x | checkem | 7 |
1 files changed, 3 insertions, 4 deletions
@@ -59,10 +59,9 @@ find { wanted => sub { # Start a hash to represent this file - my %f; - - # Put the found name into it - $f{name} = $File::Find::name; + my %f = ( + name => $File::Find::name, + ); # Pull in the file stat values we care about @f{ keys %STATS } = ( stat $f{name} )[ values %STATS ] |