Mini Shell
Mini Shell
| Direktori : /home/rs/perl/5.8/lib/perl5/5.8/mach/auto/POSIX/ |
| Current File : /home/rs/perl/5.8/lib/perl5/5.8/mach/auto/POSIX/fstat.al |
# NOTE: Derived from ../../lib/POSIX.pm.
# Changes made here will be lost when autosplit is run again.
# See AutoSplit.pm.
package POSIX;
#line 594 "../../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;