From cb1611b5c52327429c52a44b28f228bb34701933 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Thu, 6 Jul 2006 11:02:37 +0000
Subject: [PATCH 1/1] skip empty results of hash_filter

git-svn-id: file:///home/dpavlin/svn/Biblio-Isis/trunk@44 4670fa4d-42ec-0310-ab5b-a66af6943492
---
 lib/Biblio/Isis.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lib/Biblio/Isis.pm b/lib/Biblio/Isis.pm
index ba32c69..5461657 100644
--- a/lib/Biblio/Isis.pm
+++ b/lib/Biblio/Isis.pm
@@ -475,7 +475,10 @@ sub to_hash {
 		foreach my $l (@{$row->{$k}}) {
 
 			# filter output
-			$l = $self->{'hash_filter'}->($l) if ($self->{'hash_filter'});
+			if ($self->{'hash_filter'}) {
+				$l = $self->{'hash_filter'}->($l);
+				next unless defined($l);
+			}
 
 			my $val;
 
-- 
2.20.1