--- loncom/init.d/loncontrol	2007/06/02 03:40:02	1.31
+++ loncom/init.d/loncontrol	2007/06/12 23:45:42	1.32
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 #
-# $Id: loncontrol,v 1.31 2007/06/02 03:40:02 albertel Exp $
+# $Id: loncontrol,v 1.32 2007/06/12 23:45:42 albertel Exp $
 #
 # The LearningOnline Network with CAPA
 #
@@ -144,7 +144,10 @@ sub stop_daemon {
 	my $daemonpid=<PIDFILE>;
 	chomp($daemonpid);
 	kill TERM => $daemonpid;
-	sleep 1;
+	my $count=0;
+	while ($count++ < 5 && kill(0 => $daemonpid)) {
+	    sleep 1;
+	}
 	if (kill 0 => $daemonpid) {
 	    kill KILL => $daemonpid;
 	    sleep 1;