X-Git-Url: https://diplodocus.org/git/nmh/blobdiff_plain/246f4113675976d5260f98ab111096bba57e85da..d6e398f9c:/etc/gen-ctype-checked.c

diff --git a/etc/gen-ctype-checked.c b/etc/gen-ctype-checked.c
index f1dcaf01..befd64a7 100644
--- a/etc/gen-ctype-checked.c
+++ b/etc/gen-ctype-checked.c
@@ -74,10 +74,11 @@ main () {
  */\n\n";
     char headername[] = "sbr/ctype-checked.h";
     const char cfilename[] =  "sbr/ctype-checked.c";
-    FILE *header, *cfile;
+    FILE *header = fopen (headername, "w");
+    FILE *cfile = fopen (cfilename, "w");
+    int status = 0;
 
-    if ((header = fopen (headername, "w")) != 0  &&
-        (cfile = fopen (cfilename, "w")) != 0) {
+    if (header != 0  &&  cfile != 0) {
         struct ctype_func *f;
 
         fprintf (header, copyright, headername);
@@ -121,8 +122,11 @@ main () {
         fprintf (header, "#endif /* CTYPE_CHECKED_H */\n");
     } else {
         perror ("fopen in sbr/");
-        return -1;
+        status = -1;
     }
 
-    return 0;
+    if (header) { fclose(header); }
+    if (cfile) { fclose(cfile); }
+
+    return status;
 }