clean up forking code in example

src/mod/xml_int/mod_xml_scgi/xml_scgi_server.pl

@@ -61,11 +61,17 @@ my $xml = qq#
 </document>
 #;
 
+$SIG{CHLD} = "IGNORE";
 
 while (my $request = $scgi->accept) {
-
   # fork every new req into its own process (optional)
-  next unless(my $pid = fork());
+  my $pid = fork();
+
+  if ($pid) {
+    $request->close();
+    next;
+  }
+
   my $handle = $request->connection;
 
   $request->read_env;
@@ -89,5 +95,9 @@ while (my $request = $scgi->accept) {
   #print $handle "Content-Type: text/xml\n\n";
 
   print $handle $xml;
-  exit if (!$pid);
+
+  exit unless $pid;
 }
+
+
+