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 6e2677f0baa94d219fd93c5859829732c4e8426d Author: Patrick Hochstenbach <[email protected]> Date: Thu Mar 2 11:45:04 2017 +0100 Fixing one tests according to the new rules --- lib/Catmandu/MARC.pm | 4 ++-- t/21-marc-spec.t | 6 +++++- 2 files changed, 7 insertions(+), 3 deletions(-) diff --git a/lib/Catmandu/MARC.pm b/lib/Catmandu/MARC.pm index cdbfe8d..21f02e6 100644 --- a/lib/Catmandu/MARC.pm +++ b/lib/Catmandu/MARC.pm @@ -564,10 +564,10 @@ sub marc_spec { unless (@mapped) { return $vals } if ($split) { - $vals = [[@mapped]] + $vals = [[@mapped]]; } elsif ($append) { - $vals = [@mapped] + $vals = [@mapped]; } elsif (@mapped) { $vals = join $join_char, @mapped; diff --git a/t/21-marc-spec.t b/t/21-marc-spec.t index d9cd871..1fa3319 100644 --- a/t/21-marc-spec.t +++ b/t/21-marc-spec.t @@ -27,7 +27,11 @@ is $records->[9]->{my}{subjects}{joined}, 'Perl (Computer program language)###W is_deeply $records->[9]->{my}{append}{subjects}, - ['Perl (Computer program language)Web servers.Cross-platform software development.'], + [ + 'Perl (Computer program language)', + 'Web servers.', + 'Cross-platform software development.' + ], q|fix: marc_spec('650', my.append.subjects.$append);|; is_deeply -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libcatmandu-marc-perl.git _______________________________________________ Pkg-perl-cvs-commits mailing list [email protected] http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits
