From: Eric Gillespie <epg@google.com>
Date: Tue, 9 Dec 2014 23:17:49 +0000 (-0800)
Subject: nmh seeks before truncating
X-Git-Url: https://diplodocus.org/git/minc/commitdiff_plain/7dfde0ad29c8aad86b1859713334d83e6c95b525?ds=sidebyside;hp=e91b4e70d7bb0f9543d106b1c3c6f0d7df1c1020

nmh seeks before truncating
---

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) {