--- projects/cms/source/host/ihost-perl/ihost.pl	2001/03/14 18:49:00	1.29
+++ projects/cms/source/host/ihost-perl/ihost.pl	2001/03/15 09:46:18	1.31
@@ -10,7 +10,7 @@
 #  - pjm2@ukc.ac.uk
 #
 # $Author: pjm2 $
-# $Id: ihost.pl,v 1.29 2001/03/14 18:49:00 pjm2 Exp $
+# $Id: ihost.pl,v 1.31 2001/03/15 09:46:18 pjm2 Exp $
 #------------------------------------------------------------
 
 $| = 1;
@@ -102,7 +102,7 @@ sub wait_then_retry() {
 #-----------------------------------------------------------------------
 sub tcp_configure() {
     
-    while (1 == 1) {
+    while (1) {
         my($sock) = new IO::Socket::INET(
                                          PeerAddr => $filter_manager_addr,
                                          PeerPort => $filter_manager_port,
@@ -111,7 +111,6 @@ sub tcp_configure() {
         if (!defined $sock) {
             print "IHOST ERROR: Could not connect to $filter_manager_addr:$filter_manager_port.\n";
             print "Please check that there is an i-scream server at this address.\n";
-            close($sock);
             wait_then_retry();
             next;
         }