lib/perl5/5.6.1/msys/auto/POSIX/getcwd.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 658 "../../lib/POSIX.pm (autosplit into ../../lib/auto/POSIX/getcwd.al)"
   7 sub getcwd
   8 {
   9     usage "getcwd()" if @_ != 0;
  10     if ($^O eq 'MSWin32') {
  11         # this perhaps applies to everyone else also?
  12         require Cwd;
  13         $cwd = &Cwd::cwd;
  14     }
  15     else {
  16         chop($cwd = `pwd`);
  17     }
  18     $cwd;
  19 }
  20
  21 # end of POSIX::getcwd
  22 1;