nmh seeks before truncating

diff --git a/minc b/minc
index 75fa67e833075bf7c1403c791a6dd29767522332..301cf35a678eb721ac041b7ed3d2ff7308d31da2 100755 (executable)
--- a/minc
+++ b/minc
@@ -334,8 +334,8 @@ sub mark {
     my @sequences = <$fh>;
     chomp(@sequences);
 
     my @sequences = <$fh>;
     chomp(@sequences);
 

-    truncate($fh, 0) or die("truncate($fn): $!");

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

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

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