--- 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:44:08	1.30
@@ -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.30 2001/03/15 09:44:08 pjm2 Exp $
 #------------------------------------------------------------
 
 $| = 1;
@@ -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;
         }