Select Code to Download

Select or download this

#!/usr/bin/perl -w

...
        $maxthreads = 0;

}

Select or download this

micha@laptop ~/prog/perl/test $ ./threads_leak.pl
maxthreads: 300  threadscreated: 300  VmSize:     177468 kB VmRSS:    
+    125216 kB
...
maxthreads: 300  threadscreated: 1500  VmSize:    370560 kB VmRSS:    
+    249440 kB
maxthreads: 300  threadscreated: 1800  VmSize:    724704 kB VmRSS:    
+    250108 kB
maxthreads: 300  threadscreated: 2100  VmSize:    410060 kB VmRSS:    
+    372136 kB