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 d9db0e563c8766d5c88e54272b32c6d73f0b3d9e Author: Patrick Hochstenbach <[email protected]> Date: Tue Feb 28 10:53:14 2017 +0100 Fixing error in split/pluck --- Build.PL | 2 +- cpanfile | 2 +- lib/Catmandu/MARC.pm | 5 +++-- 3 files changed, 5 insertions(+), 4 deletions(-) diff --git a/Build.PL b/Build.PL index 3c3999e..49e3933 100644 --- a/Build.PL +++ b/Build.PL @@ -34,7 +34,7 @@ my %module_build_args = ( "MARC::Lint" => 0, "MARC::Parser::RAW" => 0, "MARC::Record" => "v2.0.6", - "MARC::Spec" => 0, + "MARC::Spec" => "v0.1.0", "Memoize" => 0, "Moo" => "1.0", "MooX::Singleton" => 0, diff --git a/cpanfile b/cpanfile index a9873a3..9aa896b 100644 --- a/cpanfile +++ b/cpanfile @@ -22,7 +22,7 @@ requires 'MARC::Record', '2.0.6'; requires 'MARC::Lint', '0'; requires 'MARC::Parser::RAW', '0'; requires 'Const::Fast', '0.014'; -requires 'MARC::Spec'; +requires 'MARC::Spec', '0.1.0'; requires 'Memoize', '0'; requires 'Moo', '1.0'; requires 'MooX::Singleton', '0'; diff --git a/lib/Catmandu/MARC.pm b/lib/Catmandu/MARC.pm index 9895d65..a164553 100644 --- a/lib/Catmandu/MARC.pm +++ b/lib/Catmandu/MARC.pm @@ -71,9 +71,10 @@ sub marc_map { push @{ $_h->{ $field->[$i] } } , $field->[$i + 1]; } my $subfield = $context->{subfield}; - $subfield =~ s{^[a-zA-Z0-9]}{}g; + $subfield =~ s{[^a-zA-Z0-9]}{}g; for my $c (split('',$subfield)) { - push @$v , @{ $_h->{$c} } if exists $_h->{$c}; + my $val = $_h->{$c} // [undef]; + push @$v , @{ $val } ; } } else { -- 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
