Package: perl
Version: 5.8.4-8
Severity: normal
*** Please type your report below this line ***
Small perl program:
$a="AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA\n";
$b=$a x 1000000;
print "Length = ".length($b)."\n";
system("top -b -n 1 |grep \" *$$ \"");
$b=$a x 1000000;
system("top -b -n 1 |grep \" *$$ \"");
undef $b;
system("top -b -n 1 |grep \" *$$ \"");
With strange result:
Length = 72000000
1995 root 10 0 138M 138M 1040 S 0.0 27.5 0:00 perl
1995 root 11 0 207M 207M 1040 S 0.0 41.1 0:00 perl
1995 root 9 0 138M 138M 1044 S 0.0 27.5 0:00 perl
1st:
$b and one "leak"
2nd:
$b and two "leak"
3th:
only two "leak"
-- System Information:
Debian Release: 3.0
APT prefers testing
APT policy: (150, 'testing'), (40, 'unstable')
Architecture: i386 (i686)
Kernel: Linux 2.4.27-up
Locale: LANG=C, LC_CTYPE=ru_RU.koi8-r (charmap=KOI8-R)
Versions of packages perl depends on:
ii libc6 2.3.2.ds1-22 GNU C Library: Shared libraries an
ii libdb4.2 4.2.52-18 Berkeley v4.2 Database Libraries [
ii libgdbm3 1.8.3-2 GNU dbm database routines (runtime
ii perl-base 5.8.4-8 The Pathologically Eclectic Rubbis
ii perl-modules 5.8.4-8 Core Perl modules
-- no debconf information
--
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]
