Lines Matching refs:Spec
51 use File::Spec;
149 push(@search, grep($_ ne File::Spec->curdir, @new_INC));
151 push(@search, grep($_ ne File::Spec->curdir, @INC));
184 unless(File::Spec->file_name_is_absolute($try)) {
186 $try = File::Spec->catfile($pwd,$try);
191 $try = File::Spec->canonpath($try) if ($^O ne 'VMS');
366 '-dirs' => [ File::Spec->curdir ],
383 # Split on :: and then join the name together using File::Spec
413 #my $perlpoddir = File::Spec->catdir($Config::Config{'installprivlib'},
435 my $fullname = File::Spec->catfile($dir, @parts);
456 # have a case-tolerant file system, but File::Spec
459 if((File::Spec->case_tolerant || $^O =~ /macos|darwin|cygwin/i)
460 && -d File::Spec->catdir($dir,'pods')) {
461 $dir = File::Spec->catdir($dir,'pods');
464 if(-d File::Spec->catdir($dir,'pod')) {
465 $dir = File::Spec->catdir($dir,'pod');