land b_smallfix 20040407_1414:

[fs/lustre-release.git] / lustre / tests / socketserver

diff --git a/lustre/tests/socketserver b/lustre/tests/socketserver
index 25bbb6e..e2fd66a 100755 (executable)
--- a/lustre/tests/socketserver
+++ b/lustre/tests/socketserver
@@ -15,6 +15,14 @@ listen(Server,SOMAXCONN)                     || die "listen: $!";
 
 logmsg "server started on $NAME";
 
+my $rc = fork();
+if ($rc > 0) { #parent
+    exit();
+} elsif ($rc < 0) { # error
+    logmsg "fork failed: $rc";
+    exit();
+}
+
 accept(Client,Server);
 logmsg "connection on $NAME";
 print Client "from server\n";