From: Shawn Boyette <sboyette@esilibrary.com>
Date: Tue, 11 Nov 2008 23:10:18 +0000 (+0000)
Subject: oops
X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=commitdiff_plain;h=9d7c0eb0d50bcb6a147b42356c20b4a9f878345b

oops
---

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'}++;
     }