From bfee0d7bc3f83f5b68902249647d743bea690a1e Mon Sep 17 00:00:00 2001
From: Shawn Boyette <sboyette@esilibrary.com>
Date: Wed, 8 Oct 2008 17:49:35 +0000
Subject: [PATCH] trap null subfield codes

---
 marc-cleanup |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/marc-cleanup b/marc-cleanup
index 76d77be..00b1430 100755
--- a/marc-cleanup
+++ b/marc-cleanup
@@ -129,7 +129,7 @@ while (my $line = getline()) {
     }
 
     # subfields can't be non-alphanumeric
-    if ($line =~ /<subfield code="(.+?)"/) {
+    if ($line =~ /<subfield code="(.*?)"/) {
         my $match = $1;
         if ($match =~ /\P{IsAlnum}/) {
             edit("Junk in subfield code", $line);
-- 
1.7.2.5