have to seek after truncate!

diff --git a/minc b/minc
index f0541594d7d05d76ac4f72959304d28fcd9eba6b..be32d8fbdfe02d82f486334302d739c7c5e0fbb2 100755 (executable)
--- a/minc
+++ b/minc
@@ -326,6 +326,7 @@ sub mark {
     chomp(@sequences);
 
     truncate($fh, 0) or die("truncate($fn): $!");
     chomp(@sequences);
 
     truncate($fh, 0) or die("truncate($fn): $!");

+    seek($fh, 0, SEEK_SET) or die("seek($fn): $!");

 
     my $marked = 0;
     for $_ (@sequences) {
 
     my $marked = 0;
     for $_ (@sequences) {