From 7dfde0ad29c8aad86b1859713334d83e6c95b525 Mon Sep 17 00:00:00 2001
From: Eric Gillespie <epg@google.com>
Date: Tue, 9 Dec 2014 15:17:49 -0800
Subject: [PATCH] nmh seeks before truncating

---
 minc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/minc b/minc
index 75fa67e..301cf35 100755
--- a/minc
+++ b/minc
@@ -334,8 +334,8 @@ sub mark {
     my @sequences = <$fh>;
     chomp(@sequences);
 
-    truncate($fh, 0) or die("truncate($fn): $!");
     seek($fh, 0, SEEK_SET) or die("seek($fn): $!");
+    truncate($fh, 0) or die("truncate($fn): $!");
 
     my $marked = 0;
     for $_ (@sequences) {
-- 
2.56.0