[svn:qpsmtpd] rev 444 - branches/high_perf/lib/Danga

Author: msergeant
Date: Wed Jun 22 11:24:34 2005
New Revision: 444

Modified:
   branches/high_perf/lib/Danga/Socket.pm
Log:
Cleanup Timer code


Modified: branches/high_perf/lib/Danga/Socket.pm
==============================================================================
--- branches/high_perf/lib/Danga/Socket.pm	(original)
+++ branches/high_perf/lib/Danga/Socket.pm	Wed Jun 22 11:24:34 2005
@@ -116,11 +116,8 @@ sub AddTimer {
     my ($secs, $coderef) = @_;
     my $timeout = time + $secs;
     
-    use Data::Dumper; $Data::Dumper::Indent=1;
-    
     if (!@Timers || ($timeout > $Timers[-1][0])) {
         push @Timers, [$timeout, $coderef];
-        print STDERR Dumper(\@Timers);
         return;
     }
     
@@ -128,7 +125,6 @@ sub AddTimer {
     for (my $i = 0; $i < @Timers; $i++) {
         if ($Timers[$i][0] > $timeout) {
             splice(@Timers, $i, 0, [$timeout, $coderef]);
-            print STDERR Dumper(\@Timers);
             return;
         }
     }