X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=blobdiff_plain;f=lib%2FZOOM%2FIRSpy.pm;fp=lib%2FZOOM%2FIRSpy.pm;h=bfd593ca5ec497d45bbacc49696db9b0c446595f;hp=dcba350a97297ed88899c9cdb0df94ac9b247b24;hb=f235dd11944d33e51c66b0fd30afc9582e292825;hpb=1e23eeb797f1bbe48e3d3977d864a3d148b71597 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()) {