projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add some Hello and Bye
[spider.git]
/
perl
/
Thingy.pm
diff --git
a/perl/Thingy.pm
b/perl/Thingy.pm
index ed33fde027491b84b041187d6e464aedcfc8771c..522e4b136d0c7ea80ff55f8c31c2e3d4f5fb3acc 100644
(file)
--- a/
perl/Thingy.pm
+++ b/
perl/Thingy.pm
@@
-96,11
+96,21
@@
sub queue
push @queue, $thing;
}
push @queue, $thing;
}
+#
# this is the main commutator loop. In due course it will
# this is the main commutator loop. In due course it will
-# become the *only* commutator loop
+# become the *only* commutator loop, This can be called in one
+# of two ways: either with 2 args or with none.
+#
+# The two arg form is an immediate "queue and handle" and does
+# a full cycle, immediately
+#
sub process
{
my $thing;
sub process
{
my $thing;
+ if (@_ == 2) {
+ $thing = shift;
+ $thing->queue(shift);
+ }
while (@queue) {
$thing = shift @queue;
my $dxchan = DXChannel->get($thing->{dxchan});
while (@queue) {
$thing = shift @queue;
my $dxchan = DXChannel->get($thing->{dxchan});