lib/perl5/5.6.1/msys/auto/POSIX/fstat.al

   1 # NOTE: Derived from ../../lib/POSIX.pm.
   2 # Changes made here will be lost when autosplit again.
   3 # See AutoSplit.pm.
   4 package POSIX;
   5
   6 #line 565 "../../lib/POSIX.pm (autosplit into ../../lib/auto/POSIX/fstat.al)"
   7 sub fstat {
   8     usage "fstat(fd)" if @_ != 1;
   9     local *TMP;
  10     CORE::open(TMP, "<&$_[0]");         # Gross.
  11     my @l = CORE::stat(TMP);
  12     CORE::close(TMP);
  13     @l;
  14 }
  15
  16 # end of POSIX::fstat
  17 1;