clean up forking code in example

diff --git a/src/mod/xml_int/mod_xml_scgi/xml_scgi_server.pl b/src/mod/xml_int/mod_xml_scgi/xml_scgi_server.pl
index 2c7575f64c68c6aa862d45832227fd6281a3e2c5..0f4af275bc999ac7377bf1c51d5a65d6ac70827f 100644 (file)
--- a/src/mod/xml_int/mod_xml_scgi/xml_scgi_server.pl
+++ b/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;
 }
+
+
+