From 9d7c0eb0d50bcb6a147b42356c20b4a9f878345b Mon Sep 17 00:00:00 2001
From: Shawn Boyette <sboyette@esilibrary.com>
Date: Tue, 11 Nov 2008 23:10:18 +0000
Subject: [PATCH] oops

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

diff --git a/marc-cleanup b/marc-cleanup
index ea22b2c..7f1a0d6 100755
--- a/marc-cleanup
+++ b/marc-cleanup
@@ -283,7 +283,7 @@ sub write_record {
                          $conf->{'renumber-subfield'}, '">',
                          $conf->{'renumber-from'}, "</subfield></datafield>\n");
         my @tmp = @record[0 .. $#record - 1];
-        my $last = @record[$#record];
+        my $last = $record[$#record];
         @record = (@tmp, $renumber, $last);
         $conf->{'renumber-from'}++;
     }
-- 
1.7.2.5