PATCH: high_perf: make can_read quieter so it doesn't pollute the log when not debugging

[Brian Grossman]

Attached is a patch for high_perf branch:

make can_read quieter so it doesn't pollute the log when not debugging

Brian
make can_read quieter so it doesn't pollute the log when not debugging


--- old/lib/Danga/Client.pm     2005-05-05 03:32:07.000000000 -0600
+++ new/lib/Danga/Client.pm     2005-05-07 14:26:39.000000000 -0600
@@ -45,7 +45,7 @@
     my Danga::Client $self = shift;
     my ($timeout) = @_;
     my $end = Time::HiRes::time() + $timeout;
-    warn("Calling can-read\n");
+    #warn("Calling can-read\n");
     $self->{can_read_mode} = 1;
     if (!length($self->{line})) {
         my $old = $self->watch_read();
@@ -61,7 +61,7 @@
     $self->SetPostLoopCallback(sub { $self->have_line ? 0 : 1 });
     return if $self->{closing};
     $self->{alive_time} = time;
-    warn("can_read returning for '$self->{line}'\n");
+    #warn("can_read returning for '$self->{line}'\n");
     return 1 if length($self->{line});
     return;
 }