118 $epocroot = abs_path($epocroot); |
119 $epocroot = abs_path($epocroot); |
119 die "ERROR: EPOCROOT must specify an existing directory.\n" if (!-d $epocroot); |
120 die "ERROR: EPOCROOT must specify an existing directory.\n" if (!-d $epocroot); |
120 ($epocroot_vol,$epocroot_dir,$epocroot_file) = File::Spec->splitpath($epocroot); |
121 ($epocroot_vol,$epocroot_dir,$epocroot_file) = File::Spec->splitpath($epocroot); |
121 $epocroot = File::Spec->catfile(($epocroot_vol,$epocroot_dir,$epocroot_file),undef); |
122 $epocroot = File::Spec->catfile(($epocroot_vol,$epocroot_dir,$epocroot_file),undef); |
122 print "EPOCROOT=$ENV{EPOCROOT} resolved as \"$epocroot\"\n"; |
123 print "EPOCROOT=$ENV{EPOCROOT} resolved as \"$epocroot\"\n"; |
|
124 $lc_epocroot = lc($epocroot); |
123 $epoc32path = "${epocroot}epoc32"; |
125 $epoc32path = "${epocroot}epoc32"; |
124 $toolpath = File::Spec->catfile($epoc32path,"tools"); |
126 $toolpath = File::Spec->catfile($epoc32path,"tools"); |
125 push @INC, $toolpath; |
127 push @INC, $toolpath; |
126 nix_fixes(), unless ($on_windows); |
128 nix_fixes(), unless ($on_windows); |
127 } |
129 } |
658 if ($dest) { |
660 if ($dest) { |
659 my ($vol,$dir,$leaf) = File::Spec->splitpath($src); |
661 my ($vol,$dir,$leaf) = File::Spec->splitpath($src); |
660 my $lc_leaf = lc($leaf); |
662 my $lc_leaf = lc($leaf); |
661 my $lc_dir = lc($dir); |
663 my $lc_dir = lc($dir); |
662 $lc_dir =~ s/\/$//; |
664 $lc_dir =~ s/\/$//; |
663 my $fulldir = $lc_dir; |
665 $lc_dir =~ s|^$lc_epocroot|$epocroot|; |
|
666 my $fulldir = $lc_dir; |
664 $fulldir =~ s|//|/|g; |
667 $fulldir =~ s|//|/|g; |
665 $dest =~ s|\/|\\|g; |
668 $dest =~ s|\/|\\|g; |
666 $dest = '\\' . $dest, unless ($dest =~ /^\\/); |
669 $dest = '\\' . $dest, unless ($dest =~ /^\\/); |
667 unless ( -d $fulldir ) { |
670 unless ( -d $fulldir ) { |
668 chomp $line; |
671 chomp $line; |