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

@@ -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.