From: Wolfram Schneider <wosch@indexdata.dk>
Date: Mon, 26 Apr 2010 13:08:10 +0000 (+0200)
Subject: cleanup debuging code from last commit
X-Git-Tag: CPAN-v1.02~84
X-Git-Url: http://lists.indexdata.dk/?a=commitdiff_plain;h=f235dd11944d33e51c66b0fd30afc9582e292825;p=irspy-moved-to-github.git

cleanup debuging code from last commit
---

diff --git a/lib/ZOOM/IRSpy.pm b/lib/ZOOM/IRSpy.pm
index dcba350..bfd593c 100644
--- a/lib/ZOOM/IRSpy.pm
+++ b/lib/ZOOM/IRSpy.pm
@@ -435,8 +435,6 @@ sub check {
     my $timeout = $this->{timeout};
     $this->log("irspy", "beginnning with test '$topname' (timeout $timeout)");
 
-    $timeout = 2;
-
     my $nskipped = 0;
     my @conn = @{ $this->{connections} };
 
@@ -446,11 +444,8 @@ sub check {
 	my @copy_conn = @conn;	# avoid alias problems after splice()
 	my $nconn = scalar(@copy_conn);
 
-
 	foreach my $i0 (0 .. $#copy_conn) {
 	    my $conn = $copy_conn[$i0];
-		#warn Dumper($conn);
-
 	    #print "connection $i0 of $nconn/", scalar(@conn), " is $conn\n";
 	    next if !defined $conn;
 	    if (!$conn->current_task()) {