--- projects/cms/source/host/ihost-perl/ihost.pl	2001/03/15 09:44:08	1.30
+++ 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.30 2001/03/15 09:44:08 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,