equal
deleted
inserted
replaced
122 } |
122 } |
123 else { |
123 else { |
124 mkpath($dir) or die "Couldn't make path \"$dir\": $!\n"; |
124 mkpath($dir) or die "Couldn't make path \"$dir\": $!\n"; |
125 } |
125 } |
126 } |
126 } |
|
127 if ($dir =~ /^\\epoc32/) { |
|
128 # If it starts with \epoc32, chop the leading backslash and stick on $EPOCROOT |
|
129 $dir =~ s/^\\/$ENV{EPOCROOT}/; |
|
130 } |
127 } |
131 } |
128 |
132 |
129 sub CopyFile { |
133 sub CopyFile { |
130 my $from = TidyPath(shift); |
134 my $from = TidyPath(shift); |
131 my $to = TidyPath(shift); |
135 my $to = TidyPath(shift); |