[LON-CAPA-cvs] cvs: loncom(memcached) /lonnet/perl lonnet.pm

[albertel]

albertel		Tue Oct 12 16:37:05 2004 EDT

  Modified files:              (Branch: memcached)
    /loncom/lonnet/perl	lonnet.pm 
  Log:
  - remove some debugging code
  
  
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.545.2.2 loncom/lonnet/perl/lonnet.pm:1.545.2.3
--- loncom/lonnet/perl/lonnet.pm:1.545.2.2	Tue Oct 12 16:26:48 2004
+++ loncom/lonnet/perl/lonnet.pm	Tue Oct 12 16:37:04 2004
@@ -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 @@
 # -------------------------------------------------- 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 @@
     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;
 }