This commit is contained in:
dprice%netscape.com 2000-07-12 07:50:37 +00:00
Родитель 20f993546d
Коммит 7ec1b73048
1 изменённых файлов: 9 добавлений и 3 удалений

Просмотреть файл

@ -50,9 +50,15 @@ sub EnsureFileInDir
my ($destPath, $srcPath, $objDir) = @_;
if (!-e $destPath) {
$destPath =~ /(.*)[\\\/]([\w\d.\-]+)/;
my $dir = $1;
my $file = $2;
my $dir = "";
my $file;
if ($destPath =~ /([\w\d.\-\\\/]+)[\\\/]([\w\d.\-]+)/) {
$dir = $1;
$file = $2;
}
else {
$file = $destPath;
}
if ($srcPath) {
$file = $srcPath;