X-Git-Url: https://diplodocus.org/git/nmh/blobdiff_plain/1c91be5784ddebaa6a54f1f2c42a8016f10af6de..376e8ae431ea3c23ff1940f66be6eb8f7ff2f1fe:/sbr/seq_save.c?ds=sidebyside

diff --git a/sbr/seq_save.c b/sbr/seq_save.c
index 5148f745..8ac30867 100644
--- a/sbr/seq_save.c
+++ b/sbr/seq_save.c
@@ -91,7 +91,9 @@ priv:
 		    free(mp->seqname);
 		    mp->seqname = NULL;
 		    rewind(fp);
-		    ftruncate(fileno(fp), 0);
+		    if (ftruncate(fileno(fp), 0) < 0) {
+			advise ("sequence file", "ftruncate");
+		    }
 		} else if ((fp = lkfopendata (seqfile, "w", &failed_to_lock))
 			   == NULL
 			&& (m_unlink (seqfile) == -1 ||