summaryrefslogtreecommitdiff
path: root/systems/texlive/tlnet/tlpkg/tlperl/lib/File/stat.pm
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2024-03-15 03:06:35 +0000
committerNorbert Preining <norbert@preining.info>2024-03-15 03:06:35 +0000
commit12679ab7d3c2a210f4123163671b532b8b55d5f9 (patch)
tree0060d13467186ad977f4e73488ee20dd6c0017ab /systems/texlive/tlnet/tlpkg/tlperl/lib/File/stat.pm
parent62170822e034fdd3f81de7274835d0d3b0467100 (diff)
CTAN sync 202403150306
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/File/stat.pm')
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/File/stat.pm8
1 files changed, 4 insertions, 4 deletions
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/File/stat.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/File/stat.pm
index 863092c93d..373afd22cb 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/File/stat.pm
+++ b/systems/texlive/tlnet/tlpkg/tlperl/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.13';
our @fields;
our ( $st_dev, $st_ino, $st_mode,
@@ -83,7 +83,7 @@ sub _ingroup {
# component (at which point we might as well just call Perl_cando and
# have done with it).
-if (grep $^O eq $_, qw/os2 MSWin32 dos/) {
+if (grep $^O eq $_, qw/os2 MSWin32/) {
# from doio.c
*cando = sub { ($_[0][2] & $_[1]) ? 1 : "" };
@@ -233,8 +233,8 @@ File::stat - by-name interface to Perl's built-in stat() functions
=head1 SYNOPSIS
use File::stat;
- $st = stat($file) or die "No $file: $!";
- if ( ($st->mode & 0111) && $st->nlink > 1) ) {
+ my $st = stat($file) or die "No $file: $!";
+ if ( ($st->mode & 0111) && ($st->nlink > 1) ) {
print "$file is executable with lotsa links\n";
}