[LON-CAPA-cvs] cvs: loncom / lonhttpd

[albertel]

albertel		Wed Jul 11 14:48:21 2007 EDT

  Modified files:              
    /loncom	lonhttpd 
  Log:
  - clean up the socket when done with it
  
  
Index: loncom/lonhttpd
diff -u loncom/lonhttpd:1.14 loncom/lonhttpd:1.15
--- loncom/lonhttpd:1.14	Fri Apr 13 11:43:42 2007
+++ loncom/lonhttpd	Wed Jul 11 14:48:20 2007
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: lonhttpd,v 1.14 2007/04/13 15:43:42 raeburn Exp $
+# $Id: lonhttpd,v 1.15 2007/07/11 18:48:20 albertel Exp $
 
 $VERSION = "1.3.2 (Demonic/Linux/LON-CAPA Derivative $Revison$)";
 
@@ -595,6 +595,7 @@
 		waitpid($pid, 0);
 		$0 = "lonhttpd: (dhttpi) on ANY:$port_to_use, last request " .
 			scalar localtime;
+		close(NS);
 	} else {
 		$0 = "lonhttpd: (dhttpi) child switching to socket";
 		open(STDIN, "<&NS");