limits on next/prev line routines

[migration-tools.git] / marc-cleanup

diff --git a/marc-cleanup b/marc-cleanup
index 0d222dc..96f3250 100755 (executable)
--- 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;
 }