[libcatmandu-marc-perl] 130/208: check definition of vals with option split

[Jonas Smedegaard]

This is an automated email from the git hooks/post-receive script.

js pushed a commit to annotated tag upstream/1.19
in repository libcatmandu-marc-perl.

commit d34a500d3857511cb9a9357bee163bcf71de089a
Author: Carsten Klee <cKlee at users.noreply.github.com>
Date:   Fri May 12 11:52:45 2017 +0200

    check definition of vals with option split
---
 lib/Catmandu/MARC.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Catmandu/MARC.pm b/lib/Catmandu/MARC.pm
index 20d07d6..09b062b 100644
--- a/lib/Catmandu/MARC.pm
+++ b/lib/Catmandu/MARC.pm
@@ -143,7 +143,7 @@ sub marc_map {
         }
     }
 
-    if ($split) {
+    if ($split and defined $vals) {
         $vals = [ $vals ];
     }
     elsif ($append) {

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libcatmandu-marc-perl.git