diff options
-rwxr-xr-x | checkem | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -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}; |