Date: Sun, 28 Jan 2007 00:24:39 GMT From: Yuri Karaban<tech@askold.net> To: freebsd-gnats-submit@FreeBSD.org Subject: ports/108459: lang/perl5.8 internal malloc (usemymalloc=y) is broken Message-ID: <200701280024.l0S0OduT099432@www.freebsd.org> Resent-Message-ID: <200701280030.l0S0UUZs090366@freefall.freebsd.org>
next in thread | raw e-mail | index | archive | help
>Number: 108459
>Category: ports
>Synopsis: lang/perl5.8 internal malloc (usemymalloc=y) is broken
>Confidential: no
>Severity: serious
>Priority: low
>Responsible: freebsd-ports-bugs
>State: open
>Quarter:
>Keywords:
>Date-Required:
>Class: sw-bug
>Submitter-Id: current-users
>Arrival-Date: Sun Jan 28 00:30:29 GMT 2007
>Closed-Date:
>Last-Modified:
>Originator: Yuri Karaban
>Release: FreeBSD 5.5-RELEASE-p2
>Organization:
>Environment:
FreeBSD myhost 5.5-RELEASE-p2 FreeBSD 5.5-RELEASE-p2 #0: Thu Aug 17 14:45:10 CDT 2006 root@myhost:/usr/obj/usr/src/sys/MYHOST i386
>Description:
Perl compiled with its internal malloc (which is default option) consuming all process address space (512MB)
with programs which doing many allocations (for example mayb programs from POE framework).
For example if to run this sample stress test:
-------[cut]---------
#! /usr/bin/perl
use strict;
use warnings;
my $d = [];
for (;;) {
if (@$d > 10) {
shift @$d;
}
push @$d, '';
while (length($d->[-1]) < 100000) {
$d->[-1] .= 'Z' x 50;
}
$d->[-1] = '';
}
-------[cut]---------
perl compiled with usemymalloc=y, in several seconds consume all process space and drops with error like:
Out of memory during "large" request for 69632 bytes, total sbrk() is 536791040 bytes at ./leak.pl line 14
However perl compiled with usemymalloc=n (WITHOUT_PERL_MALLOC=yes) running well, and memory consumption does not grow above 5MB.
>How-To-Repeat:
>Fix:
workaround is to add WITHOUT_PERL_MALLOC=yes to /etc/make.conf
>Release-Note:
>Audit-Trail:
>Unformatted:
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?200701280024.l0S0OduT099432>