From 4e91f43e28bce5f4825202d86297c8d2dbc3aa8c Mon Sep 17 00:00:00 2001
From: Eric Gillespie <epg@google.com>
Date: Fri, 5 Dec 2014 16:09:07 -0800
Subject: [PATCH] have to seek after truncate!

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

diff --git a/minc b/minc
index f054159..be32d8f 100755
--- a/minc
+++ b/minc
@@ -326,6 +326,7 @@ sub mark {
     chomp(@sequences);
 
     truncate($fh, 0) or die("truncate($fn): $!");
+    seek($fh, 0, SEEK_SET) or die("seek($fn): $!");
 
     my $marked = 0;
     for $_ (@sequences) {
-- 
2.56.0