Package: perl Version: 5.8.7-9 Severity: important
Im write small test script to check how many threads can be run. this script segfault, i check on sarge i386 and etch and64, in all cases kernel is 2.6 whith nptl ( on sarge i386 package libc6-i686 is installed) before running test, set vm.overcommit_memory=2 and vm.overcommit_ratio=100 otherwise system can be unresponsible due to swapping. also setting "ulimit -s unlimited" only increase number of threads before segfault begin test script ##################################################################### #!/usr/bin/perl -w #sysctl -w vm.overcommit_memory=2 #sysctl -w vm.overcommit_ratio=100 use threads; use threads::shared; use strict; use warnings; my $a : shared; my $n : shared; sub incn { lock($n); $n++; } $a = 1; $n = 0; sub my_function { incn( $n); while ($a) { my $child_thread = threads->new(\&my_function); if($child_thread) { $child_thread->detach; } else { $a = 0; } } } #my_function(); my $c = threads->new(\&my_function); $c->detach; while( $a ) { print "$n\n"; sleep( 1); } print "--$n--\n"; for( my $i=0; $i<10; $i++) { sleep(1); print "$n\n"; } ##################################################################### end test script -- System Information: Debian Release: testing/unstable APT prefers testing APT policy: (500, 'testing') Architecture: amd64 (x86_64) Shell: /bin/sh linked to /bin/bash Kernel: Linux 2.6.12-1-amd64-k8 Locale: LANG=bg_BG.UTF-8, LC_CTYPE=bg_BG.UTF-8 (charmap=UTF-8) Versions of packages perl depends on: ii libc6 2.3.5-8.1 GNU C Library: Shared libraries an ii libdb4.3 4.3.28-2 Berkeley v4.3 Database Libraries [ ii libgdbm3 1.8.3-2 GNU dbm database routines (runtime ii perl-base 5.8.7-9 The Pathologically Eclectic Rubbis ii perl-modules 5.8.7-9 Core Perl modules Versions of packages perl recommends: ii perl-doc 5.8.7-9 Perl documentation -- no debconf information -- To UNSUBSCRIBE, email to [EMAIL PROTECTED] with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]