Lines Matching refs:cwd
20 *cwd() function) be used in I<all> code to ensure portability.
22 By default, it exports the functions cwd(), getcwd(), fastcwd(), and
35 my $cwd = getcwd();
41 =item cwd
43 my $cwd = cwd();
45 The cwd() is the most natural form for the current architecture. For
51 my $cwd = fastcwd();
66 my $cwd = fastgetcwd();
68 The fastgetcwd() function is provided as a synonym for cwd().
127 functions are all aliases for the C<cwd()> function, which, on Mac OS,
150 @EXPORT = qw(cwd getcwd fastcwd fastgetcwd);
162 *cwd = defined &sys_cwd ? \&sys_cwd : \&_os2_cwd;
163 *getcwd = \&cwd;
164 *fastgetcwd = \&cwd;
165 *fastcwd = \&cwd;
210 my $cwd = `$pwd_cmd`;
214 chomp($cwd) if defined $cwd;
215 $cwd;
218 # Since some ports may predefine cwd internally (e.g., NT)
219 # we take care not to override an existing definition for cwd().
221 unless(defined &cwd) {
226 *cwd = \&_backtick_pwd;
229 *cwd = \&getcwd;
235 *fastgetcwd = \&cwd;
239 # Usage: $cwd = getcwd();
249 # Usage: $cwd = &fastcwd;
306 $ENV{'PWD'} = cwd();
310 my $wd = cwd();
341 return $ENV{'PWD'} = cwd();
370 my($dotdots, $cwd, @pst, @cst, $dir, @tst);
377 $cwd = '';
414 $cwd = (defined $dir ? "$dir" : "" ) . "/$cwd" ;
417 chop($cwd) unless $cwd eq '/'; # drop the trailing /
418 $cwd;
428 my $cwd = getcwd();
435 ($cwd) = $cwd =~ /(.*)/;
441 if (! ((-d $cwd) && (CORE::chdir($cwd)))) {
442 _croak("Cannot chdir back to $cwd: $!");
538 *cwd = \&_vms_cwd;
547 *cwd = \&_NT_cwd;
555 *cwd = \&_dos_cwd;
562 *cwd = \&_qnx_cwd;
570 *getcwd = \&cwd;
571 *fastgetcwd = \&cwd;
572 *fastcwd = \&cwd;
577 *cwd = \&_epoc_cwd;
584 *getcwd = \&cwd;
585 *fastgetcwd = \&cwd;
586 *fastcwd = \&cwd;