From 6e3c63cde45923c99f21b312a440e373bc23e679 Mon Sep 17 00:00:00 2001 From: Dirk Koopman 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.43.0