aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorTom Ryder <tom@sanctum.geek.nz>2017-08-10 01:45:03 +1200
committerTom Ryder <tom@sanctum.geek.nz>2017-08-10 01:45:03 +1200
commit61c685bb0e9e3da94970a42de3af19a5a595076e (patch)
treefe9e123bfa6f7d1b25ffdd9a6809a7fef31b523b
parentPerl 5.6 compatible syntax (diff)
downloadcheckem-61c685bb0e9e3da94970a42de3af19a5a595076e.tar.gz
checkem-61c685bb0e9e3da94970a42de3af19a5a595076e.zip
Merge obvious two blocks
-rwxr-xr-xcheckem7
1 files changed, 3 insertions, 4 deletions
diff --git a/checkem b/checkem
index 5310f7d..c105c3e 100755
--- a/checkem
+++ b/checkem
@@ -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 ]