lib/auto/POSIX/fstat.al

   1 # NOTE:  Derived from POSIX.pm.  Changes made here will be lost.
   2 package POSIX;
   3
   4 sub fstat {
   5     usage "fstat(fd)", caller if @_ != 1;
   6     local(*TMP);
   7     open(TMP, "<&$_[0]");               # Gross.
   8     local(@l) = stat(TMP);
   9     close(TMP);
  10     @l;
  11 }
  12
  13 1;