projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
ff16b76
)
get the pc19 and pc20 the correct way around
author
minima
<minima>
Thu, 24 Feb 2005 17:37:22 +0000
(17:37 +0000)
committer
minima
<minima>
Thu, 24 Feb 2005 17:37:22 +0000
(17:37 +0000)
perl/Thingy/Rt.pm
patch
|
blob
|
history
diff --git
a/perl/Thingy/Rt.pm
b/perl/Thingy/Rt.pm
index 49f2bc616cc5167781421c13bf08b811496592d0..d99b439ef88cd872b3d8f3a9a17a2890e42b2fef 100644
(file)
--- a/
perl/Thingy/Rt.pm
+++ b/
perl/Thingy/Rt.pm
@@
-95,32
+95,32
@@
sub handle_cf
if ($thing->{n}) {
for (split(/:/, $thing->{n})) {
my ($here, $call) = unpack("A1 A*", $_);
if ($thing->{n}) {
for (split(/:/, $thing->{n})) {
my ($here, $call) = unpack("A1 A*", $_);
- unless ($call eq $main::mycall) {
- $in{$call} = $here;
- }
+ next if $call eq $main::mycall;
+ $in{$call} = $here;
}
}
if ($thing->{a}) {
for (split(/:/, $thing->{a})) {
my ($here, $call) = unpack("A1 A*", $_);
}
}
if ($thing->{a}) {
for (split(/:/, $thing->{a})) {
my ($here, $call) = unpack("A1 A*", $_);
- unless ($call eq $main::mycall) {
- $in{$call} = $here;
- }
+ next if $call eq $main::mycall;
+ $in{$call} = $here;
}
}
my ($del, $add) = $parent->diff_nodes(keys %in);
}
}
my ($del, $add) = $parent->diff_nodes(keys %in);
- if ($
add
) {
+ if ($
del
) {
my @pc21;
foreach my $call (@$del) {
my @pc21;
foreach my $call (@$del) {
+ next if $call eq $main::mycall;
RouteDB::delete($call, $chan_call);
my $ref = Route::Node::get($call);
push @pc21, $ref->del($parent) if $ref;
}
$thing->{pc21n} = \@pc21 if @pc21;
}
RouteDB::delete($call, $chan_call);
my $ref = Route::Node::get($call);
push @pc21, $ref->del($parent) if $ref;
}
$thing->{pc21n} = \@pc21 if @pc21;
}
- if ($
del
) {
+ if ($
add
) {
my @pc19;
foreach my $call (@$add) {
my @pc19;
foreach my $call (@$add) {
+ next if $call eq $main::mycall;
RouteDB::update($call, $chan_call);
my $here = $in{$call};
push @pc19, $parent->add($call, 0, $here);
RouteDB::update($call, $chan_call);
my $here = $in{$call};
push @pc19, $parent->add($call, 0, $here);