Lines Matching refs:cur_dir

137     my $cur_dir;
140         chomp($cur_dir = `bash -c 'pwd -W'`);
146         $cur_dir .= '/' if length($cur_dir) > 3;
150         $cur_dir = `cmd "/c;" echo %__CD__%`;
151         if($? != 0 || substr($cur_dir, 0, 1) eq '%') {
156         $cur_dir =~ s{\n|\r}{}g;
159         $cur_dir =~ s{\\}{/}g;
161     return $cur_dir;
375         my $cur_dir = `pwd -L`;
380         chomp($cur_dir);
382         $path = $cur_dir . '/' . $path;
513         my $cur_dir = `pwd -L`;
518         chomp($cur_dir);
520         $path = $cur_dir . '/' . $path;