From: Galen Charlton <gmc@esilibrary.com>
Date: Fri, 22 Jul 2011 16:05:38 +0000 (+0000)
Subject: fix bug introduced in r739
X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=commitdiff_plain;h=a5e1b131e101f84386fade9385dfc4f731b59ae1

fix bug introduced in r739

When replacing named captures for Perl 5.8 compatibility,
need to make sure regex groups that shouldn't capture
are marked as such.

Signed-off-by: Galen Charlton <gmc@esilibrary.com>
---

diff --git a/marc_cleanup b/marc_cleanup
index 3b2c2ed..f978ef3 100755
--- a/marc_cleanup
+++ b/marc_cleanup
@@ -186,7 +186,7 @@ sub do_automated_cleanups {
 sub stow_record_data {
     # get tag data if we're looking at it
     my $tag = 0;
-    if ($record[$ptr] =~ m/<(control|data)field tag="(.{3})"/) {
+    if ($record[$ptr] =~ m/<(?:control|data)field tag="(.{3})"/) {
         $recmeta{tag} = $1;
         $tag = $recmeta{tag};
         $record[$ptr] =~ m/ind1="(.)"/;