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.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; |