[Summary view] [Print] [Text view]

   1  # NOTE: Derived from ../../lib/POSIX.pm.
   2  # Changes made here will be lost when autosplit is run again.
   3  # See AutoSplit.pm.
   4  package POSIX;
   5  
   6  #line 589 "../../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;