/IronPython_Main/Runtime/Tests/LinqDlrTests/testenv/perl/lib/auto/POSIX/getcwd.al
# · Unknown · 22 lines · 20 code · 2 blank · 0 comment · 0 complexity · 9a9047cb751d1f52e70715e6099864ed MD5 · raw file
- # NOTE: Derived from ..\..\lib\POSIX.pm.
- # Changes made here will be lost when autosplit is run again.
- # See AutoSplit.pm.
- package POSIX;
-
- #line 658 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getcwd.al)"
- sub getcwd
- {
- usage "getcwd()" if @_ != 0;
- if ($^O eq 'MSWin32') {
- # this perhaps applies to everyone else also?
- require Cwd;
- $cwd = &Cwd::cwd;
- }
- else {
- chop($cwd = `pwd`);
- }
- $cwd;
- }
-
- # end of POSIX::getcwd
- 1;