Lines Matching refs:cur_dir
131 my $cur_dir;
134 chomp($cur_dir = `bash -c 'pwd -W'`);
140 $cur_dir .= '/' if length($cur_dir) > 3;
144 $cur_dir = `cmd "/c;" echo %__CD__%`;
145 if($? != 0 || substr($cur_dir, 0, 1) eq '%') {
150 $cur_dir =~ s{\n|\r}{}g;
153 $cur_dir =~ s{\\}{/}g;
155 return $cur_dir;
370 my $cur_dir;
373 $cur_dir = `bash -c 'pwd -L'`;
376 $cur_dir = `pwd -L`;
382 chomp($cur_dir);
384 $path = $cur_dir . '/' . $path;
522 my $cur_dir;
525 $cur_dir = `bash -c 'pwd -L'`;
528 $cur_dir = `pwd -L`;
534 chomp($cur_dir);
536 $path = $cur_dir . '/' . $path;