projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
1998046
)
improve the pc24 fix
author
minima
<minima>
Mon, 25 Jun 2001 18:08:08 +0000
(18:08 +0000)
committer
minima
<minima>
Mon, 25 Jun 2001 18:08:08 +0000
(18:08 +0000)
perl/DXProt.pm
patch
|
blob
|
history
diff --git
a/perl/DXProt.pm
b/perl/DXProt.pm
index 8bfd6c3e43d4525d01fbe7109577db14c11ae2d1..52e7b3eda744774ad3e6f9ce673c4214d4e1faaa 100644
(file)
--- a/
perl/DXProt.pm
+++ b/
perl/DXProt.pm
@@
-784,16
+784,18
@@
sub normal
if ($pcno == 24) { # set here status
my $call = uc $field[1];
my ($nref, $uref);
if ($pcno == 24) { # set here status
my $call = uc $field[1];
my ($nref, $uref);
- $nref = Route::Node::get($call)
&& $nref->here($field[2])
;
- $uref = Route::User::get($call)
&& $uref->here($field[2])
;
+ $nref = Route::Node::get($call);
+ $uref = Route::User::get($call);
return unless $nref || $uref; # if we don't know where they are, it's pointless sending it on
unless (eph_dup($line)) {
if ($nref) {
return unless $nref || $uref; # if we don't know where they are, it's pointless sending it on
unless (eph_dup($line)) {
if ($nref) {
+ $nref->here($field[2]);
return unless $self->in_filter_route($nref);
$self->route_pc24($nref, $field[3])
}
if ($uref) {
return unless $self->in_filter_route($nref);
$self->route_pc24($nref, $field[3])
}
if ($uref) {
+ $uref->here($field[2]);
return unless $self->in_filter_route($uref);
$self->route_pc24($uref, $field[3]);
}
return unless $self->in_filter_route($uref);
$self->route_pc24($uref, $field[3]);
}