diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/auto/POSIX/fstat.al')
| -rw-r--r-- | Master/tlpkg/tlperl/lib/auto/POSIX/fstat.al | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/fstat.al b/Master/tlpkg/tlperl/lib/auto/POSIX/fstat.al new file mode 100644 index 00000000000..c02f89a3f2f --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/fstat.al @@ -0,0 +1,17 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 582 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fstat.al)" +sub fstat { + usage "fstat(fd)" if @_ != 1; + local *TMP; + CORE::open(TMP, "<&$_[0]"); # Gross. + my @l = CORE::stat(TMP); + CORE::close(TMP); + @l; +} + +# end of POSIX::fstat +1; |