lib/auto/POSIX/fstat.al


1
2
3
4
5
6
7
8
9
10
11
12
13

# NOTE:  Derived from POSIX.pm.  Changes made here will be lost.
package POSIX;

sub fstat {
    usage "fstat(fd)", caller if @_ != 1;
    local(*TMP);
    open(TMP, "<&$_[0]");		# Gross.
    local(@l) = stat(TMP);
    close(TMP);
    @l;
}

1;