--- loncom/lonnet/perl/lonnet.pm	2004/10/12 20:26:48	1.545.2.2
+++ loncom/lonnet/perl/lonnet.pm	2004/10/12 20:37:04	1.545.2.3
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.545.2.2 2004/10/12 20:26:48 albertel Exp $
+# $Id: lonnet.pm,v 1.545.2.3 2004/10/12 20:37:04 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -116,7 +116,6 @@ sub logperm {
 # -------------------------------------------------- Non-critical communication
 sub subreply {
     my ($cmd,$server)=@_;
-    my $t0_f=[&Time::HiRes::gettimeofday()];
     my $peerfile="$perlvar{'lonSockDir'}/$server";
     my $client=IO::Socket::UNIX->new(Peer    =>"$peerfile",
                                      Type    => SOCK_STREAM,
@@ -126,8 +125,6 @@ sub subreply {
     my $answer=<$client>;
     if (!$answer) { $answer="con_lost"; }
     chomp($answer);
-    my $td=&Time::HiRes::tv_interval($t0_f);
-    &Apache::lonnet::logthis("\n $td seconds for $cmd");
     return $answer;
 }