diff options
| author | Dan Book <grinnz@grinnz.com> | 2021-05-13 11:15:53 -0400 |
|---|---|---|
| committer | James E Keenan <jkeenan@cpan.org> | 2021-05-20 23:06:58 -0400 |
| commit | 3cfda62a1290cd64a86a6d7aa3ac7e7317baa06b (patch) | |
| tree | 70bbc553f1456902ef1aabd0a89e750c082f6cbf | |
| parent | 1b4abd7a1176bbccd4448de637474be7e72f8a57 (diff) | |
| download | perl-3cfda62a1290cd64a86a6d7aa3ac7e7317baa06b.tar.gz | |
File::stat - Fix typo in synopsis
| -rw-r--r-- | lib/File/stat.pm | 4 |
1 files changed, 2 insertions, 2 deletions
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"; } |