projects
/
irspy-moved-to-github.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
14e05c0
)
Comments only.
author
Mike Taylor
<mike@indexdata.com>
Fri, 23 Feb 2007 13:18:43 +0000
(13:18 +0000)
committer
Mike Taylor
<mike@indexdata.com>
Fri, 23 Feb 2007 13:18:43 +0000
(13:18 +0000)
lib/ZOOM/IRSpy.pm
patch
|
blob
|
history
diff --git
a/lib/ZOOM/IRSpy.pm
b/lib/ZOOM/IRSpy.pm
index
d01a9e8
..
a496c67
100644
(file)
--- a/
lib/ZOOM/IRSpy.pm
+++ b/
lib/ZOOM/IRSpy.pm
@@
-1,4
+1,4
@@
-# $Id: IRSpy.pm,v 1.65 2007-02-23 13:14:13 mike Exp $
+# $Id: IRSpy.pm,v 1.66 2007-02-23 13:18:43 mike Exp $
package ZOOM::IRSpy;
package ZOOM::IRSpy;
@@
-364,6
+364,7
@@
sub check {
}
if (!defined $nextaddr) {
$conn->log("irspy", "has no more tests: removing");
}
if (!defined $nextaddr) {
$conn->log("irspy", "has no more tests: removing");
+ ### Does this go wrong if two connections are exhausted?
splice @conn, $i0, 1;
$this->_rewrite_record($conn);
$conn->option(rewrote_record => 1);
splice @conn, $i0, 1;
$this->_rewrite_record($conn);
$conn->option(rewrote_record => 1);
@@
-397,8
+398,6
@@
sub check {
$conn->current_task($task);
$task->run();
}
$conn->current_task($task);
$task->run();
}
-
- # Do we need to test $conn->is_idle()? I don't think so!
}
my $i0 = ZOOM::event(\@conn);
}
my $i0 = ZOOM::event(\@conn);