From 8b8593637f459d81a22568df1e3d3a8ff88c4e2d Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Sat, 10 Mar 2007 13:02:36 +0000 Subject: [PATCH] Do not attempt sanity-checks. --- lib/ZOOM/IRSpy.pm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/lib/ZOOM/IRSpy.pm b/lib/ZOOM/IRSpy.pm index 0df24d7..62df949 100644 --- a/lib/ZOOM/IRSpy.pm +++ b/lib/ZOOM/IRSpy.pm @@ -1,4 +1,4 @@ -# $Id: IRSpy.pm,v 1.75 2007-03-09 08:56:37 mike Exp $ +# $Id: IRSpy.pm,v 1.76 2007-03-10 13:02:36 mike Exp $ package ZOOM::IRSpy; @@ -330,10 +330,11 @@ sub check { $conn->log("irspy", "has no more tests: removing"); $this->_rewrite_record($conn); $conn->option(rewrote_record => 1); - $conn->destroy(); if (@{ $this->{queue} } == 0) { + # Do not destroy: we need this for later sanity checks splice @conn, $i0, 1; } else { + $conn->destroy(); $conn[$i0] = create ZOOM::IRSpy::Connection($this, shift @{ $this->{queue} }, async => 1); @@ -468,6 +469,8 @@ sub check { } $this->log("irspy", "exiting main loop"); + return $nskipped; # Sanity-checks don't work if conns are closed + # Sanity checks: none of the following should ever happen my $finished = 1; @conn = @{ $this->{connections} }; -- 1.7.10.4