projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
171f983
)
route the right thing in the user portion of PC16
author
minima
<minima>
Sun, 19 Jan 2003 17:35:12 +0000
(17:35 +0000)
committer
minima
<minima>
Sun, 19 Jan 2003 17:35:12 +0000
(17:35 +0000)
perl/DXProt.pm
patch
|
blob
|
history
diff --git
a/perl/DXProt.pm
b/perl/DXProt.pm
index 9c04497680673939c3fc8ca9ac6c3e520e932ed8..ab989c8f3ccf404cec3397006c3b4727919ca8d3 100644
(file)
--- a/
perl/DXProt.pm
+++ b/
perl/DXProt.pm
@@
-729,13
+729,12
@@
sub normal
my $flags = Route::here($here)|Route::conf($conf);
if ($r) {
- my @add;
- push @add, $r->addparent($parent);
+ my $au = $r->addparent($parent);
if ($r->flags != $flags) {
$r->flags($flags);
-
push @add, $r unless @add
;
+
$au = $r
;
}
- push @rout,
@add
;
+ push @rout,
$r if $au
;
} else {
push @rout, $parent->add_user($call, $flags);
}