fix error on disconnect in RBN + seeme

diff --git a/perl/RBN.pm b/perl/RBN.pm
index 9d17d33bddfd597bf6318f0e1b2ec263d2f0cf8d..87cedaa71c73447a78d174e988094f6aeff08897 100644 (file)
--- a/perl/RBN.pm
+++ b/perl/RBN.pm
@@ -980,7 +980,7 @@ sub del_seeme
        my $call = shift;
        my $base = basecall($call);
        my $ref = $seeme{$base};
-       return unless @$ref;
+       return unless $ref && @$ref;
        
        @$ref =  grep {$_ ne $call} @$ref;
        if (@$ref) {