--- projects/cms/source/host/ihost-perl/ihost.pl	2001/11/20 12:47:03	1.41
+++ projects/cms/source/host/ihost-perl/ihost.pl	2001/11/21 10:08:20	1.42
@@ -8,7 +8,7 @@
 # a typical Unix/Linux box.
 #
 # $Author: tdb $
-# $Id: ihost.pl,v 1.41 2001/11/20 12:47:03 tdb Exp $
+# $Id: ihost.pl,v 1.42 2001/11/21 10:08:20 tdb Exp $
 #------------------------------------------------------------
 
 $| = 1;
@@ -48,7 +48,7 @@ $retry_wait = 60;
 
 # write our PID to a file
 # use home dir by default
-$pidfile = $ENV{"HOME"};
+#$pidfile = $ENV{"HOME"};
 # or drop it in /var/tmp if we can't find HOME
 $pidfile = "/var/tmp" if not defined $pidfile;
 $pidfile .= "/.ihost.pid";