Lines Matching refs:File

21   use File::Spec;
25 use File::Spec;
34   File::Spec->catdir('pod', 'testpods', 'lib')
35   : File::Spec->catdir($THISDIR,'lib');
38       VMS::Filespec::unixify(File::Spec->catdir('pod', 'testpods', 'lib'))
39       : VMS::Filespec::unixify(File::Spec->catdir($THISDIR,'-','lib','pod'));
77 elsif (File::Spec->case_tolerant || $^O eq 'dos') {
84 print "### searching for File::Find\n";
85 $result = pod_where({ -inc => 1, -verbose => $VERBOSE }, 'File::Find')
91     $compare = "lib.File]Find.pm";
98       File::Spec->catfile(File::Spec->updir, 'lib','File','Find.pm')
99       : File::Spec->catfile($Config::Config{privlib},"File","Find.pm");
107   { -dirs => [ File::Spec->catdir(
113 $compare = File::Spec->catfile(
122   $path = File::Spec->canonpath($path);
123   my @comp = File::Spec->splitpath($path);
124   my @dir = File::Spec->splitdir($comp[1]);
125   $comp[1] = File::Spec->catdir(@dir);
126   $path = File::Spec->catpath(@comp);
127   $path = uc($path) if File::Spec->case_tolerant;