This is an automated email from the git hooks/post-receive script. js pushed a commit to annotated tag debian/0.21-1 in repository libcatmandu-mab2-perl.
commit 8e38b80b598806379f6d7d7da015a639c5fa4149 Author: Johann Rolschewski <[email protected]> Date: Thu Oct 12 14:16:53 2017 +0200 fix regex for record fields --- lib/MAB2/Parser/Disk.pm | 2 +- lib/MAB2/Parser/RAW.pm | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/MAB2/Parser/Disk.pm b/lib/MAB2/Parser/Disk.pm index 3caddef..45e6189 100644 --- a/lib/MAB2/Parser/Disk.pm +++ b/lib/MAB2/Parser/Disk.pm @@ -78,7 +78,7 @@ sub _decode { } if ( my ( $tag, $ind, $data ) - = $field =~ m/(\d{3})([A-Za-z0-9\s])(.*)/ ) + = $field =~ m/^(\d{3})([A-Za-z0-9\s])(.*)/ ) { # check if data contains subfield indicators if ( $data =~ m/\s*($SUBFIELD_INDICATOR|\$)(.*)/ ) { diff --git a/lib/MAB2/Parser/RAW.pm b/lib/MAB2/Parser/RAW.pm index 7f628e0..6351865 100644 --- a/lib/MAB2/Parser/RAW.pm +++ b/lib/MAB2/Parser/RAW.pm @@ -80,7 +80,7 @@ sub _decode { } if ( my ( $tag, $ind, $data ) - = $field =~ m/(\d{3})([A-Za-z0-9\s])(.*)/ ) + = $field =~ m/^(\d{3})([A-Za-z0-9\s])(.*)/ ) { if ( $data =~ m/\s*$SUBFIELD_INDICATOR(.*)/ ) { push( -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libcatmandu-mab2-perl.git _______________________________________________ Pkg-perl-cvs-commits mailing list [email protected] http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits
