From 3cfda62a1290cd64a86a6d7aa3ac7e7317baa06b Mon Sep 17 00:00:00 2001 From: Dan Book Date: Thu, 13 May 2021 11:15:53 -0400 Subject: File::stat - Fix typo in synopsis --- lib/File/stat.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lib/File') diff --git a/lib/File/stat.pm b/lib/File/stat.pm index 863092c93d..d4993681da 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"; } -- cgit v1.2.1