$ostype = $inforec->ostype; $directory = $inforec->directory; $size = int($inforec->size); $timeframe = $inforec->timeframe; print "build_mm_rec: $ostype, $directory, $size, $timeframe\n"; if ($ostype eq 'N') { print "getting space, size: $size\n"; $TotalNumberOfFreeBytes = (Win32::DriveInfo::DriveSpace($directory))[6]; $TotalNumberOfFreeBytes = int($TotalNumberOfFreeBytes); print "space 1: $TotalNumberOfFreeBytes\n"; my $holder = $TotalNumberOfFreeBytes - 1; print "space 1.5: $holder\n"; $holder = $size / $size; print "space 1.6: $holder\n"; $TotalNumberOfFreeBytes = $TotalNumberOfFreeBytes / $size; print "space 2: $TotalNumberOfFreeBytes\n"; $TotalNumberOfFreeBytes = $TotalNumberOfFreeBytes / $size; print "space 3: $TotalNumberOfFreeBytes\n"; $TotalNumberOfFreeBytes = (((Win32::DriveInfo::DriveSpace($directory))[6])/$size)/$size; } else { $TotalNumberOfFreeBytes = getFreeDisk($size); print "unix space\n"; } print "space: $TotalNumberOfFreeBytes\n";