projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
b5b58db
)
*** empty log message ***
author
djk
<djk>
Sun, 11 Oct 1998 11:13:47 +0000
(11:13 +0000)
committer
djk
<djk>
Sun, 11 Oct 1998 11:13:47 +0000
(11:13 +0000)
perl/DXProt.pm
patch
|
blob
|
history
diff --git
a/perl/DXProt.pm
b/perl/DXProt.pm
index 552468b92cf9ab22a0407a2fdd7ea77fcb2706fb..627356823274c7fe1d5aee98935b3693d7858d3e 100644
(file)
--- a/
perl/DXProt.pm
+++ b/
perl/DXProt.pm
@@
-252,8
+252,10
@@
sub normal
if ($pcno == 21) { # delete a cluster from the list
my $call = uc $field[1];
- my $ref = DXCluster->get($call);
- $ref->del() if $ref;
+ if ($call ne $main::mycall) { # don't allow malicious buggers to disconnect me!
+ my $ref = DXCluster->get($call);
+ $ref->del() if $ref;
+ }
last SWITCH;
}