lib/ExtUtils/Install.pm

7 use File::Basename qw(dirname);
8 use File::Copy;
9 use File::Path;
10 use File::Spec;
106 my $Curdir = File::Spec->curdir;
139         require File::Compare;
140         return File::Compare::compare(@_);
195             ? (eval {require Win32API::File; 1} || 0)
208         my $opts= Win32API::File::MOVEFILE_DELAY_UNTIL_REBOOT();
209         $opts= $opts | Win32API::File::MOVEFILE_REPLACE_EXISTING()
215         if (Win32API::File::MoveFileEx( $file, $target, $opts )) {
414     my ($vol, $dirs, $file) = File::Spec->splitpath($dir,1);
415     my @dirs = File::Spec->splitdir($dirs);
416     unshift @dirs, File::Spec->curdir
417         unless File::Spec->file_name_is_absolute($dir);
423             $dir = File::Spec->catdir($vol,@dirs);
426             $dir = File::Spec->catdir(@dirs);
427             $dir = File::Spec->catpath($vol,$dir,'')
471             @created = File::Path::mkpath($dir,$show,$mode);
516         File::Copy::copy($from,$to)
699     require File::Find;
701     my $blib_lib  = File::Spec->catdir('blib', 'lib');
702     my $blib_arch = File::Spec->catdir('blib', 'arch');
732         File::Find::find(sub {
739             my $targetdir  = File::Spec->catdir($targetroot, $File::Find::dir);
740             my $targetfile = File::Spec->catfile($targetdir, $origfile);
741             my $sourcedir  = File::Spec->catdir($source, $File::Find::dir);
742             my $sourcefile = File::Spec->catfile($sourcedir, $origfile);
754             my $save_cwd = File::Spec->catfile($cwd, $sourcedir);
761                 [ $diff, $File::Find::dir, $origfile,
877         File::Spec->catfile($INSTALL_ROOT, $_[0]);
886         File::Spec->catdir($INSTALL_ROOT, $_[0]);
924   require File::Find;
925   File::Find::find(sub {
928              $File::Find::prune++;
962   my $INST_LIB = File::Spec->catdir($Curdir,"blib","lib");
963   my $INST_ARCHLIB = File::Spec->catdir($Curdir,"blib","arch");
964   my $INST_BIN = File::Spec->catdir($Curdir,'blib','bin');
965   my $INST_SCRIPT = File::Spec->catdir($Curdir,'blib','script');
966   my $INST_MAN1DIR = File::Spec->catdir($Curdir,'blib','man1');
967   my $INST_MAN3DIR = File::Spec->catdir($Curdir,'blib','man3');
971       my $INST_HTMLDIR = File::Spec->catdir($Curdir,'blib','html');
1050     my $file = (File::Spec->splitpath($filepath))[2];
1066         my $canonpath = _Is_VMS ? $dir : File::Spec->canonpath($dir);
1069         my $targetfile = File::Spec->catfile($canonpath,$libdir,$file);
1089                                      File::Spec->catfile($libdir, $file),
1099 …                   ucase(File::Spec->canonpath($ExtUtils::Install::Testing)) eq ucase($targetfile);
1275         push @stack, (File::Spec->splitpath($file))[2];