From c10aa28ae7ca5b67e53f7de9d415402b5a82c6e0 Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Fri, 25 Aug 2006 16:35:47 +0000 Subject: [PATCH] better eliminination of empty subfields git-svn-id: file:///home/dpavlin/svn/Biblio-Isis/trunk@67 4670fa4d-42ec-0310-ab5b-a66af6943492 --- lib/Biblio/Isis.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/Biblio/Isis.pm b/lib/Biblio/Isis.pm index f310501..3f70647 100644 --- a/lib/Biblio/Isis.pm +++ b/lib/Biblio/Isis.pm @@ -599,7 +599,7 @@ sub to_hash { next if (! $t); my ($sf,$v) = (substr($t,0,1), substr($t,1)); # XXX this might be option, but why? - next unless ($v); + next unless (defined($v) && $v ne ''); # warn "### $f_nr^$sf:$v",$/ if ($self->{debug} > 1); if (ref( $val->{$sf} ) eq 'ARRAY') { -- 2.20.1