projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
1fae727
)
alter disconnect slightly
author
minima
<minima>
Sat, 9 Jun 2001 23:00:15 +0000
(23:00 +0000)
committer
minima
<minima>
Sat, 9 Jun 2001 23:00:15 +0000
(23:00 +0000)
perl/DXProt.pm
patch
|
blob
|
history
diff --git
a/perl/DXProt.pm
b/perl/DXProt.pm
index 3720008a03eb75770b9f7578251d54e20bc57317..394f7cf1e8b2d061334e57cf86fecb79a6b923dc 100644
(file)
--- a/
perl/DXProt.pm
+++ b/
perl/DXProt.pm
@@
-1664,9
+1664,11
@@
sub disconnect
# do routing stuff
my $node = Route::Node::get($call);
- my @rout = $node->del_nodes; # at the next level
-
- @rout = $node->del($main::routeroot) if $node;
+ my @rout;
+ if ($node) {
+ @rout = $node->del_nodes; # at the next level
+ @rout = $node->del($main::routeroot);
+ }
# unbusy and stop and outgoing mail
my $mref = DXMsg::get_busy($call);