projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add more code gradually
[spider.git]
/
perl
/
Thingy.pm
diff --git
a/perl/Thingy.pm
b/perl/Thingy.pm
index 7ae3d8f44bb87e2fa093f347224f48be2213e7cd..785428cf42c6d7365a9d125405716c7de8e85ba9 100644
(file)
--- a/
perl/Thingy.pm
+++ b/
perl/Thingy.pm
@@
-22,6
+22,7
@@
$main::branch += $BRANCH;
use DXChannel;
use DXDebug;
use DXChannel;
use DXDebug;
+use Thingy::Hi;
use Thingy::Route;
use vars qw(@queue);
use Thingy::Route;
use vars qw(@queue);
@@
-38,7
+39,6
@@
sub new
bless $self, $class;
$self->{_tonode} ||= '*';
$self->{_fromnode} ||= $main::mycall;
bless $self, $class;
$self->{_tonode} ||= '*';
$self->{_fromnode} ||= $main::mycall;
- $self->{_hoptime} ||= 0;
while (my ($k,$v) = each %$self) {
delete $self->{$k} unless defined $v;
}
while (my ($k,$v) = each %$self) {
delete $self->{$k} unless defined $v;
}
@@
-46,7
+46,7
@@
sub new
}
# add the Thingy to the queue
}
# add the Thingy to the queue
-sub
add
+sub
queue
{
push @queue, shift;
}
{
push @queue, shift;
}
@@
-59,7
+59,7
@@
sub process
if ($t) {
# go directly to this class's t= handler if there is one
if ($t) {
# go directly to this class's t= handler if there is one
- my $type = $t->{t};
+ my $type =
lc
$t->{t};
if ($type) {
# remove extraneous characters put there by the ungodly
$type =~ s/[^\w]//g;
if ($type) {
# remove extraneous characters put there by the ungodly
$type =~ s/[^\w]//g;