From 6e3c63cde45923c99f21b312a440e373bc23e679 Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
Date: Mon, 31 Jan 2022 18:33:58 +0000
Subject: [PATCH] fix error on disconnect in RBN + seeme

---
 perl/RBN.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl/RBN.pm b/perl/RBN.pm
index 9d17d33b..87cedaa7 100644
--- 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) {
-- 
2.34.1