aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xcheckem6
1 files changed, 3 insertions, 3 deletions
diff --git a/checkem b/checkem
index 9715acc..f2f031b 100755
--- a/checkem
+++ b/checkem
@@ -26,7 +26,7 @@ use File::Find;
use Digest;
# Version number to make Perl::Critic happy
-our $VERSION = 2.16;
+our $VERSION = 2.17;
# Complain if there are no arguments
if ( !@ARGV ) {
@@ -75,8 +75,8 @@ find {
# Pull in the stat values we care about
if ( @f{ keys %STATS } = ( lstat $f{name} )[ values %STATS ] ) {
- # Check it's a regular file
- return if not $f{mode} & S_IFREG;
+ # Check it's a plain old file
+ return if not S_ISREG( $f{mode} );
# Check its size is non-zero
return if not $f{size};