aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xcheckem6
1 files changed, 3 insertions, 3 deletions
diff --git a/checkem b/checkem
index ee0e954..9715acc 100755
--- a/checkem
+++ b/checkem
@@ -26,7 +26,7 @@ use File::Find;
use Digest;
# Version number to make Perl::Critic happy
-our $VERSION = 2.15;
+our $VERSION = 2.16;
# Complain if there are no arguments
if ( !@ARGV ) {
@@ -34,7 +34,7 @@ if ( !@ARGV ) {
exit 2;
}
-# Convenience keys into stat() return array for clarity and to appease
+# Convenience keys into lstat() return array for clarity and to appease
# Perl::Critic
my %STATS = (
dev => 0,
@@ -73,7 +73,7 @@ find {
my %f = ( name => $File::Find::name );
# Pull in the stat values we care about
- if ( @f{ keys %STATS } = ( stat $f{name} )[ values %STATS ] ) {
+ if ( @f{ keys %STATS } = ( lstat $f{name} )[ values %STATS ] ) {
# Check it's a regular file
return if not $f{mode} & S_IFREG;