fixing bug #23658. It now calculates the correct amount of disk space

required for the install to take place.

not part of build
affects only windows

a=chofmann
r=pavlov
This commit is contained in:
ssu%netscape.com 2000-02-18 06:10:23 +00:00
Родитель 40a6eb38f9
Коммит c9980324d9
2 изменённых файлов: 5 добавлений и 3 удалений

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

@ -157,7 +157,8 @@ sub OutputInstallSize()
my($installSize);
print " calculating size for $inPath\n";
$installSize = `ds32.exe /L0 /A /S /C 32768 $inPath`;
$installSize = `ds32.exe /D /L0 /A /S /C 32768 $inPath`;
$installSize += 32768; # take into account install.js
$installSize = int($installSize / 1024);
$installSize += 1;
return($installSize);
@ -171,6 +172,7 @@ sub OutputInstallSizeArchive()
print " calculating size for $inPath\n";
($dev, $ino, $mode, $nlink, $uid, $gui, $rdev, $size, $atime, $mtime, $ctime, $blksize, $blocks) = stat $inPath;
$installSizeArchive += 32768; # take into account install.js
$installSizeArchive = int($size / 1024);
$installSizeArchive += 1;
return($installSizeArchive);
@ -193,7 +195,7 @@ sub OutputInstallSizeSystem()
{
# calculate the size of component installed using ds32.exe in Kbytes
print " calculating size for $inPath\\$_";
$installSizeSystem += `ds32.exe /L0 /A /S /C 32768 $inPath\\$_`;
$installSizeSystem += `ds32.exe /D /L0 /A /S /C 32768 $inPath\\$_`;
}
}
}

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

@ -114,7 +114,7 @@ sub GetSpaceRequired()
my($spaceRequired);
print " calulating size for $inPath\n";
$spaceRequired = `ds32.exe /L0 /A /S /C 32768 $inPath`;
$spaceRequired = `ds32.exe /D /L0 /A /S /C 32768 $inPath`;
$spaceRequired = int($spaceRequired / 1024);
$spaceRequired += 1;
return($spaceRequired);