From: Shawn Boyette <sboyette@esilibrary.com>
Date: Tue, 11 Nov 2008 15:31:18 +0000 (+0000)
Subject: limits on next/prev line routines
X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=commitdiff_plain;h=eb1602022c670620f5d0caad9fcba03f88d2bc43

limits on next/prev line routines
---

diff --git a/marc-cleanup b/marc-cleanup
index 0d222dc..96f3250 100755
--- a/marc-cleanup
+++ b/marc-cleanup
@@ -394,13 +394,13 @@ sub dump_record {
 }
 
 sub next_line {
-    $ptr++;
+    $ptr++ unless ($ptr == $#record);;
     print_linecontext();
     return 0;
 }
 
 sub prev_line {
-    $ptr--;
+    $ptr-- unless ($ptr == 0);
     print_linecontext();
     return 0;
 }