Fix the permissions for the QFA file.

diff --git a/CHANGES b/CHANGES
index 397a6972985d061ab7516853f92ce6e3abd8f733..2514ada239b257744c5cc8211ce70baee36698bf 100644 (file)
--- a/CHANGES
+++ b/CHANGES
@@ -1,4 +1,9 @@
-$Id: CHANGES,v 1.128 2001/07/20 12:41:53 stelian Exp $
+$Id: CHANGES,v 1.129 2001/08/13 15:48:51 stelian Exp $
+
+Changes between versions 0.4b23 and 0.4b24 (released ?????????????)
+===================================================================
+
+1.     Fix the permissions of a newly created QFA file by dump.
 
 Changes between versions 0.4b22 and 0.4b23 (released July 20, 2001)
 ===================================================================

diff --git a/dump/main.c b/dump/main.c
index d7462c89fc6030c9c8c8cae93115297aaa17ad69..1556bf0066864d1842e26735f58eb0e65579c138 100644 (file)
--- a/dump/main.c
+++ b/dump/main.c
@@ -41,7 +41,7 @@
 
 #ifndef lint
 static const char rcsid[] =
-       "$Id: main.c,v 1.54 2001/07/19 09:49:35 stelian Exp $";
+       "$Id: main.c,v 1.55 2001/08/13 15:48:52 stelian Exp $";
 #endif /* not lint */
 
 #include <config.h>
@@ -745,7 +745,7 @@ main(int argc, char *argv[])
 #ifdef USE_QFA
        if (tapepos) {
                msg("writing QFA positions to %s\n", gTapeposfile);
-               if ((gTapeposfd = open(gTapeposfile, O_RDWR|O_CREAT)) < 0)
+               if ((gTapeposfd = open(gTapeposfile, O_RDWR|O_CREAT, S_IRUSR | S_IWUSR)) < 0)
                        quit("can't open tapeposfile\n");
                /* print QFA-file header */
                sprintf(gTps, "%s\n%s\n%ld\n\n", QFA_MAGIC, QFA_VERSION, (unsigned long)spcl.c_date);