comparison src/lread.c @ 410:de805c49cfc1 r21-2-35

Import from CVS: tag r21-2-35
author cvs
date Mon, 13 Aug 2007 11:19:21 +0200
parents 2f8bb876ab1d
children 697ef44129c6
comparison
equal deleted inserted replaced
409:301b9ebbdf3b 410:de805c49cfc1
1027 { 1027 {
1028 /* We succeeded; return this descriptor and filename. */ 1028 /* We succeeded; return this descriptor and filename. */
1029 if (closure->storeptr) 1029 if (closure->storeptr)
1030 *closure->storeptr = build_string (fn); 1030 *closure->storeptr = build_string (fn);
1031 1031
1032 #ifndef WINDOWSNT 1032 #ifndef WIN32_NATIVE
1033 /* If we actually opened the file, set close-on-exec flag 1033 /* If we actually opened the file, set close-on-exec flag
1034 on the new descriptor so that subprocesses can't whack 1034 on the new descriptor so that subprocesses can't whack
1035 at it. */ 1035 at it. */
1036 if (closure->mode < 0) 1036 if (closure->mode < 0)
1037 (void) fcntl (closure->fd, F_SETFD, FD_CLOEXEC); 1037 (void) fcntl (closure->fd, F_SETFD, FD_CLOEXEC);