X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FRBN.pm;h=87cedaa71c73447a78d174e988094f6aeff08897;hb=6e3c63cde45923c99f21b312a440e373bc23e679;hp=9d17d33bddfd597bf6318f0e1b2ec263d2f0cf8d;hpb=a152a2950881b694b5bc75fbc0cb4a1677243b81;p=spider.git

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) {