From: Ben Ostrowsky <ben@esilibrary.com>
Date: Fri, 20 May 2011 16:13:09 +0000 (+0000)
Subject: Rewrote some regular expressions to make them compatible with Perl versions before... 
X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=commitdiff_plain;h=ecd9a840150d8aac37606594e9abaf0ce4838dfb

Rewrote some regular expressions to make them compatible with Perl versions before 5.10
---

diff --git a/marc_cleanup b/marc_cleanup
index 89f8ab0..f0c3753 100755
--- a/marc_cleanup
+++ b/marc_cleanup
@@ -186,13 +186,13 @@ 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="(?<TAG>.{3})"/) {
-        $recmeta{tag} = $+{TAG};
+    if ($record[$ptr] =~ m/<(control|data)field tag="(.{3})"/) {
+        $recmeta{tag} = $1;
         $tag = $recmeta{tag};
-        $record[$ptr] =~ m/ind1="(?<IND1>.)"/;
-        $recmeta{ind1} = $+{IND1} || '';
-        $record[$ptr] =~ m/ind2="(?<IND2>.)"/;
-        $recmeta{ind2} = $+{IND2} || '';
+        $record[$ptr] =~ m/ind1="(.)"/;
+        $recmeta{ind1} = $1 || '';
+        $record[$ptr] =~ m/ind2="(.)"/;
+        $recmeta{ind2} = $1 || '';
 
         unless ($tag) {
             message("Autokill record: no detectable tag");