skip empty results of hash_filter

[Biblio-Isis] / lib / Biblio / Isis.pm

diff --git a/lib/Biblio/Isis.pm b/lib/Biblio/Isis.pm
index ba32c69..5461657 100644 (file)
--- 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;