From: Eric Gillespie <epg@google.com>
Date: Sat, 6 Dec 2014 00:09:07 +0000 (-0800)
Subject: have to seek after truncate!
X-Git-Url: https://diplodocus.org/git/minc/commitdiff_plain/4e91f43e28bce5f4825202d86297c8d2dbc3aa8c?ds=sidebyside;hp=853abbb751ad7d11d0a82f8dc1410335915ea694

have to seek after truncate!
---

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