Я получаю эту ошибку при выполнении git svn rebase в cygwin
Out of memory during "large" request for 268439552 bytes, total sbrk() is 140652544 bytes at /usr/lib/perl5/site_perl/Git.pm line 898, <GEN1> line 3.
268439552 - 256 МБ. Максимальный объем памяти Cygwin установлен на 1024 МБ, поэтому я предполагаю, что он имеет другой максимальный объем памяти для perl?
Как увеличить максимальный объем памяти, который могут использовать perl-программы?
обновление:
Вот где происходит ошибка (в Git.pm):
while (1) {
my $bytesLeft = $size - $bytesRead;
last unless $bytesLeft;
my $bytesToRead = $bytesLeft < 1024 ? $bytesLeft : 1024;
my $read = read($in, $blob, $bytesToRead, $bytesRead); //line 898
unless (defined($read)) {
$self->_close_cat_blob();
throw Error::Simple("in pipe went bad");
}
$bytesRead += $read;
}
Я добавил печать перед строкой 898, чтобы распечатать $ bytesToRead и $ bytesRead, и результат составил 1024 для $ bytesToRead и 134220800 для $ bytesRead, поэтому он читает 1024 байта за раз и уже прочитал 128 МБ. Функция Perl 'read' должна быть не в памяти и пытается запросить удвоение своего объема памяти ... есть ли способ указать, сколько памяти запрашивать? или это зависит от реализации?
UPDATE2:
При тестировании выделения памяти в cygwin:
Выход этой программы на C был 1536MB
int main() {
unsigned int bit=0x40000000, sum=0;
char *x;
while (bit > 4096) {
x = malloc(bit);
if (x)
sum += bit;
bit >>= 1;
}
printf("%08x bytes (%.1fMb)\n", sum, sum/1024.0/1024.0);
return 0;
}
Хотя эта Perl-программа аварийно завершала работу, если размер файла превышал 384 МБ (но успешно, если размер файла был меньше).
open(F, "<400") or die("can't read\n");
$size = -s "400";
$read = read(F, $s, $size);
Ошибка похожа
Out of memory during "large" request for 536875008 bytes, total sbrk() is 217088 bytes at mem.pl line 6.