--- projects/cms/source/host/ihost-perl/ihost.pl	2001/03/22 08:53:59	1.34
+++ projects/cms/source/host/ihost-perl/ihost.pl	2001/11/14 14:17:12	1.35
@@ -9,8 +9,8 @@
 # methods as you see fit.
 #  - pjm2@ukc.ac.uk
 #
-# $Author: pjm2 $
-# $Id: ihost.pl,v 1.34 2001/03/22 08:53:59 pjm2 Exp $
+# $Author: tdb $
+# $Id: ihost.pl,v 1.35 2001/11/14 14:17:12 tdb Exp $
 #------------------------------------------------------------
 
 $| = 1;
@@ -75,7 +75,7 @@ while (1) {
     else {
         $delay = $next_tcp;
     }
-    `sleep $delay`;
+    sleep $delay;
 }
 
 # we'll probably never get here...
@@ -90,7 +90,7 @@ exit(0);
 #-----------------------------------------------------------------------
 sub wait_then_retry() {
     print "Will retry configuration with filter manager in $retry_wait seconds.\n";
-    `sleep $retry_wait`;
+    sleep $retry_wait;
 }