blob: a7af254612b3ddd262b1dcd140fc75e96155604f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
# NOTE: Derived from ..\..\lib\POSIX.pm.
# Changes made here will be lost when autosplit is run again.
# See AutoSplit.pm.
package POSIX;
#line 576 "..\..\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;
|