home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
fchk294b.zip
/
ftnchek-2.9.4
/
ftnchek.c.patch
< prev
next >
Wrap
Text File
|
1996-10-04
|
771b
|
29 lines
*** ftnchek.c Fri Oct 04 18:06:24 1996
--- ftnchek.c.distribution Fri Oct 04 16:21:40 1996
***************
*** 795,809 ****
if ((make_dcls > 0) && (dcl_fd != stdout))
{
-
-
if (ftell(dcl_fd) == 0L) /* delete an empty .dcl file */
! {
! /* some systems like OS/2 lock open files and can't */
! /* remove an open file unless closed. SAD-10/96 */
! (void) fclose(dcl_fd); /* close file */
! (void) unlink(dclfile);
! }
(void) fclose(dcl_fd);
}
--- 795,802 ----
if ((make_dcls > 0) && (dcl_fd != stdout))
{
if (ftell(dcl_fd) == 0L) /* delete an empty .dcl file */
! (void)unlink(dclfile);
(void) fclose(dcl_fd);
}