Fix skeletons in comp(1), forw(1) and dist(1)

[nmh] / sbr / seq_save.c

diff --git a/sbr/seq_save.c b/sbr/seq_save.c
index 5148f74588c9a7836088c47b027cd75b38ecac76..8ac30867308212f0bcea746a2bde1e71e38c0be2 100644 (file)
--- a/sbr/seq_save.c
+++ b/sbr/seq_save.c
@@ -91,7 +91,9 @@ priv:
                    free(mp->seqname);
                    mp->seqname = NULL;
                    rewind(fp);
                    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 ||
                } else if ((fp = lkfopendata (seqfile, "w", &failed_to_lock))
                           == NULL
                        && (m_unlink (seqfile) == -1 ||