--- loncom/Attic/lonc 2003/03/27 23:00:28 1.49 +++ loncom/Attic/lonc 2003/07/02 01:28:12 1.50 @@ -5,7 +5,7 @@ # provides persistent TCP connections to the other servers in the network # through multiplexed domain sockets # -# $Id: lonc,v 1.49 2003/03/27 23:00:28 albertel Exp $ +# $Id: lonc,v 1.50 2003/07/02 01:28:12 foxr Exp $ # # Copyright Michigan State University Board of Trustees # @@ -867,8 +867,8 @@ sub HUPSMAN { # sig local($SIG{CHLD}) = 'IGNORE'; # we're going to kill our children &hangup(); &logthis("CRITICAL: Restarting"); - unlink("$execdir/logs/lonc.pid"); my $execdir=$perlvar{'lonDaemons'}; + unlink("$execdir/logs/lonc.pid"); exec("$execdir/lonc"); # here we go again }