home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / fchk294s.zip / ftnchek-2.9.4 / ftnchek.c.patch < prev    next >
Text File  |  1996-10-04  |  771b  |  29 lines
  1. *** ftnchek.c    Fri Oct 04 18:06:24 1996
  2. --- ftnchek.c.distribution    Fri Oct 04 16:21:40 1996
  3. ***************
  4. *** 795,809 ****
  5.   
  6.       if ((make_dcls > 0) && (dcl_fd != stdout))
  7.       {
  8. - 
  9. - 
  10.           if (ftell(dcl_fd) == 0L)    /* delete an empty .dcl file */
  11. !             {
  12. !               /* some systems like OS/2 lock open files and can't  */
  13. !               /* remove an open file unless closed. SAD-10/96      */
  14. !             (void) fclose(dcl_fd);   /* close file */
  15. !         (void) unlink(dclfile);
  16. !             }
  17.           (void) fclose(dcl_fd);
  18.       }
  19.   
  20. --- 795,802 ----
  21.   
  22.       if ((make_dcls > 0) && (dcl_fd != stdout))
  23.       {
  24.           if (ftell(dcl_fd) == 0L)    /* delete an empty .dcl file */
  25. !         (void)unlink(dclfile);
  26.           (void) fclose(dcl_fd);
  27.       }
  28.   
  29.