Lines Matching refs:current_dir

31     return substr($cdir,0,rindex($cdir,'/')) if $fn eq $File::Find::current_dir;
213             elsif ($top_item eq $File::Find::current_dir) {
315     my $dir_rel = $File::Find::current_dir;
335     unless ( $no_chdir || ($p_dir eq $File::Find::current_dir)) {
369         unless ($no_chdir || ($dir_rel eq $File::Find::current_dir)) {
393         unless (opendir $dh, ($no_chdir ? $dir_name : $File::Find::current_dir)) {
500                 $_ = $File::Find::current_dir;
541     my $dir_rel = $File::Find::current_dir;
567         $ok = chdir($updir_loc) unless ($p_dir eq $File::Find::current_dir);
598         unless ($no_chdir || ($dir_rel eq $File::Find::current_dir)) {
622         unless (opendir $dh, ($no_chdir ? $dir_loc : $File::Find::current_dir)) {
687                 unless ($no_chdir || ($dir_rel eq $File::Find::current_dir)) {
778 $File::Find::current_dir = File::Spec->curdir || '.';