From 22b589859bca231746eccd61a37801c079e22cdb Mon Sep 17 00:00:00 2001 From: Matt Sergeant Date: Wed, 28 Jun 2006 00:06:18 +0000 Subject: [PATCH] Cleanup now we have no fork server in this script (Brian Grossman) git-svn-id: https://svn.perl.org/qpsmtpd/trunk@647 958fd67b-6ff1-0310-b445-bb7760255be9 --- qpsmtpd | 11 ++--------- 1 file changed, 2 insertions(+), 9 deletions(-) diff --git a/qpsmtpd b/qpsmtpd index 83b6774..c139011 100755 --- a/qpsmtpd +++ b/qpsmtpd @@ -58,9 +58,8 @@ Options: -h, --help : this page --use-poll : force use of poll() instead of epoll()/kqueue() -NB: -f and -j are mutually exclusive. If -f flag is not used the server uses -poll() style loops running inside J child processes. Set J to the number of -CPUs you have at your disposal. +NB: The server uses poll() style loops running inside J child processes. Set J +to the number of CPUs you have at your disposal. EOT exit(0); @@ -159,12 +158,6 @@ sub sig_chld { $SIG{CHLD} = \&sig_chld; } -sub HUNTSMAN { - $SIG{CHLD} = 'DEFAULT'; - kill 'INT' => keys %childstatus; - exit(0); -} - sub run_as_server { local $::MAXconn = $MAXCONN; # establish SERVER socket, bind and listen.