From f235dd11944d33e51c66b0fd30afc9582e292825 Mon Sep 17 00:00:00 2001 From: Wolfram Schneider Date: Mon, 26 Apr 2010 15:08:10 +0200 Subject: [PATCH] cleanup debuging code from last commit --- lib/ZOOM/IRSpy.pm | 5 ----- 1 file changed, 5 deletions(-) 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()) { -- 1.7.10.4