Lines Matching refs:Spec
25 use File::Spec;
497 my $lockfile = File::Spec->catfile($CPAN::Config->{cpan_home},".lock");
590 my $myincc = File::Spec->catfile($ENV{HOME},'.cpan','CPAN','MyConfig.pm');
916 my $dh = DirHandle->new(File::Spec->curdir)
922 push @entries, File::Spec->catfile($dir,$_);
924 push @entries, File::Spec->catdir($dir,$_);
1232 unshift @INC, File::Spec->catdir($ENV{HOME},".cpan");
1251 my($configpmdir) = File::Spec->catdir($path_to_cpan,"CPAN");
1252 my($configpmtest) = File::Spec->catfile($configpmdir,"Config.pm");
1257 $configpmdir = File::Spec->catdir($ENV{HOME},".cpan","CPAN");
1259 $configpmtest = File::Spec->catfile($configpmdir,"MyConfig.pm");
1418 $bdir = File::Spec->catdir($incdir,split /::/, $bbase);
1424 if (-d File::Spec->catdir($bdir,$entry)){
1785 my($todir) = File::Spec->catdir($CPAN::Config->{'cpan_home'},"Bundle");
1796 my($to) = File::Spec->catfile($todir,"$me.pm");
1799 $to = File::Spec->catfile($todir,"$me.pm");
2330 $aslocal = File::Spec->catfile($path, $name);
2888 my $file = File::Spec->catfile($ENV{HOME},".netrc");
3111 File::Spec->catfile('authors', '01mailrc.gz') :
3112 File::Spec->catfile('authors', '01mailrc.txt.gz'),
3122 File::Spec->catfile('modules', '02packag.gz') :
3123 File::Spec->catfile('modules', '02packages.details.txt.gz'),
3133 File::Spec->catfile('modules', '03mlist.gz') :
3134 File::Spec->catfile('modules', '03modlist.data.gz'),
3153 my $abs_wanted = File::Spec->catfile($CPAN::Config->{'keep_source_where'},
3426 my $metadata_file = File::Spec->catfile($CPAN::Config->{cpan_home},"Metadata");
3440 my $metadata_file = File::Spec->catfile($CPAN::Config->{cpan_home},"Metadata");
3676 File::Spec->catfile($CPAN::Config->{keep_source_where},
3868 File::Spec->catfile(
3935 my $dh = DirHandle->new(File::Spec->curdir)
3942 $packagedir = File::Spec->catdir($builddir,$distdir);
3965 $packagedir = File::Spec->catdir($builddir,$pragmatic_dir);
3970 my $to = File::Spec->catdir($packagedir,$f);
3983 my($mpl) = File::Spec->catfile($packagedir,"Makefile.PL");
4000 my($configure) = File::Spec->catfile($packagedir,"Configure");
4004 } elsif (-f File::Spec->catfile($packagedir,"Makefile")) {
4177 File::Spec->catfile(
4223 File::Spec->catfile($CPAN::Config->{keep_source_where},
4413 my($perl) = File::Spec->file_name_is_absolute($^X) ? $^X : "";
4415 my $candidate = File::Spec->catfile($pwd,$^X);
4420 PATH_COMPONENT: foreach $component (File::Spec->path(),
4423 my($abs) = File::Spec->catfile($component,$perl_name);
4667 my $makefile = File::Spec->catfile($build_dir,"Makefile");
4957 $me = File::Spec->catfile(@me);
4959 $to = File::Spec->catfile($todir,$me);
5001 ### my $bu = File::Spec->catfile($where,$what);
5003 my $manifest = File::Spec->catfile($where,"MANIFEST");
5029 # return File::Spec->catfile($where,$bu); # bad
5037 return File::Spec->catfile($where, $bu) if $bu;
5055 my $bfile = File::Spec->catfile($incdir, @me);
5348 (-f ($mff = File::Spec->catfile($dist->{build_dir}, "MANIFEST")))
5370 my $lfl_abs = File::Spec->catfile($dist->{build_dir},$lfl);
5572 my $pmfile = File::Spec->catfile($dir,@packpath);
5588 my $xsfile = File::Spec->catfile($dir,'auto',@packpath);