[libcatmandu-mab2-perl] 18/35: fix regex for record fields
Jonas Smedegaard
dr at jones.dk
Fri Oct 27 17:54:42 UTC 2017
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 <jorol at cpan.org>
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
More information about the Pkg-perl-cvs-commits
mailing list