diff --git a/lib/File/stat.pm b/lib/File/stat.pm index 863092c93dce..d4993681da08 100644 --- a/lib/File/stat.pm +++ b/lib/File/stat.pm @@ -11,7 +11,7 @@ BEGIN { *warnif = \&warnings::warnif } our(@EXPORT, @EXPORT_OK, %EXPORT_TAGS); -our $VERSION = '1.09'; +our $VERSION = '1.10'; our @fields; our ( $st_dev, $st_ino, $st_mode, @@ -234,7 +234,7 @@ File::stat - by-name interface to Perl's built-in stat() functions use File::stat; $st = stat($file) or die "No $file: $!"; - if ( ($st->mode & 0111) && $st->nlink > 1) ) { + if ( ($st->mode & 0111) && ($st->nlink > 1) ) { print "$file is executable with lotsa links\n"; }