[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 125 "../../lib/POSIX.pm (autosplit into ../../lib/auto/POSIX/opendir.al)"
   7  sub opendir {
   8      usage "opendir(directory)" if @_ != 1;
   9      my $dirhandle;
  10      CORE::opendir($dirhandle, $_[0])
  11      ? $dirhandle
  12      : undef;
  13  }
  14  
  15  # end of POSIX::opendir
  16  1;