Subject: | Memory leak in server mode |
Script to reproduce:
use IO::Socket::SSL;
use strict;
my $serv = IO::Socket::SSL->new(
Listen => 100,
SSL_key_file => 'ca.key',
SSL_cert_file => 'ca.crt',
LocalPort => 443
) or die $@;
while (1) {
my $client = $serv->accept()
or next;
$client->close();
}
Start this script and run loop like below from command line:
while true; do curl -k https://localhost; done
Memory usage of perl process grows without stopping