projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
70928ea
)
alter changing %conns callsign logic slightly
author
minima
<minima>
Sun, 15 Apr 2001 17:17:33 +0000
(17:17 +0000)
committer
minima
<minima>
Sun, 15 Apr 2001 17:17:33 +0000
(17:17 +0000)
perl/Msg.pm
patch
|
blob
|
history
diff --git
a/perl/Msg.pm
b/perl/Msg.pm
index 03151ca1976aa8906a2b7d7566143ae65dd83f8f..0e6ee9661c07abd36053f5a1ef1032db739f1d43 100644
(file)
--- a/
perl/Msg.pm
+++ b/
perl/Msg.pm
@@
-119,6
+119,7
@@
sub conns
$call = $pkg->{call} unless $call;
return undef unless $call;
dbg('connll', "changing $pkg->{call} to $call") if exists $pkg->{call} && $call ne $pkg->{call};
$call = $pkg->{call} unless $call;
return undef unless $call;
dbg('connll', "changing $pkg->{call} to $call") if exists $pkg->{call} && $call ne $pkg->{call};
+ delete $conns{$pkg->{call}} if $pkg->{call} ne $call;
$pkg->{call} = $call;
$ref = $conns{$call} = $pkg;
dbg('connll', "Connection $pkg->{cnum} $call stored");
$pkg->{call} = $call;
$ref = $conns{$call} = $pkg;
dbg('connll', "Connection $pkg->{cnum} $call stored");