shlist

commit 3b12f77ff08920cc16a382418c0b4b5173ea4d1f
parent f0fb01fd9c9206be5d014f735796be53d1a96aff
Author: Kyle Milz <kyle@0x30.net>
Date:   Sun, 24 Jan 2016 20:26:40 -0700

sl: some comment fixes

Diffstat:
M
server/sl
 | 
5
+++--

1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/server/sl b/server/sl
@@ -51,13 +51,14 @@ while (my $client_socket = $server_socket->accept()) {
 		next;
 	}
 
-	# in child: on linux we must stir the random pool after fork()'s
 	close $server_socket;
+	# In child: stir the random pool after fork() just in case
 	arc4random_stir();
+
 	$log->set_peer_host_port($client_socket);
 	$log->print("new connection (pid = '$$')\n");
 
-	# unconditionally upgrade connection to SSL
+	# Upgrade connection to SSL
 	my $ret = IO::Socket::SSL->start_SSL($client_socket,
 		SSL_server => 1,
 		SSL_cert_file => 'ssl/cert_chain.pem',