getcwd.al | searchcode

/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
Possible License(s): GPL-2.0, MPL-2.0-no-copyleft-exception, CPL-1.0, CC-BY-SA-3.0, BSD-3-Clause, ISC, AGPL-3.0, LGPL-2.1, Apache-2.0


# 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;