diff options
author | Elvin Aslanov <rwp.primary@gmail.com> | 2022-08-25 12:47:43 +0400 |
---|---|---|
committer | James E Keenan <jkeenan@cpan.org> | 2022-08-26 11:06:44 -0400 |
commit | 15e0811d172ece0da5948cb83a0af21ba2a34569 (patch) | |
tree | 4b64cb016cdbe3d0d70148661ccbaa84d8c26b89 /lib | |
parent | 18fa8a6f818cbe2838cfe9b1bfa0c5d9c311930c (diff) | |
download | perl-15e0811d172ece0da5948cb83a0af21ba2a34569.tar.gz |
[doc] Update File::stat synopsis
Added `my` to Synopsis for better practice.
Repository points to GH:
https://metacpan.org/pod/File::stat
Diffstat (limited to 'lib')
-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 7b430d79ea..373afd22cb 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.12'; +our $VERSION = '1.13'; our @fields; our ( $st_dev, $st_ino, $st_mode, @@ -233,7 +233,7 @@ File::stat - by-name interface to Perl's built-in stat() functions =head1 SYNOPSIS use File::stat; - $st = stat($file) or die "No $file: $!"; + my $st = stat($file) or die "No $file: $!"; if ( ($st->mode & 0111) && ($st->nlink > 1) ) { print "$file is executable with lotsa links\n"; } |