mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 19:50:24 +02:00
Code Activity

'primitive-load' opens files with O_CLOEXEC.

Browse source 
Fixes <https://bugs.gnu.org/57567>.

* libguile/load.c (scm_primitive_load): Add "e" flag to
'scm_open_file_with_encoding' argument.
* NEWS: Update.
This commit is contained in:
Ludovic Courtès 2022-09-07 17:58:40 +02:00
parent a356ceebee
commit 0aa1a9976f
2 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
NEWS
View file

@ -52,6 +52,8 @@ for use with `setsockopt'.
** (web http) terminates chunked encoding with an extra \r\n ** (web http) terminates chunked encoding with an extra \r\n
** (web client) retries TLS handshake upon non-fatal errors ** (web client) retries TLS handshake upon non-fatal errors
(<https://bugs.gnu.org/49223>) (<https://bugs.gnu.org/49223>)
** 'primitive-load' opens files as O_CLOEXEC
(<https://bugs.gnu.org/57567>)
Changes in 3.0.8 (since 3.0.7) Changes in 3.0.8 (since 3.0.7)

4
libguile/load.c
View file

@ -1,4 +1,4 @@
/* Copyright 1995-1996,1998-2001,2004,2006,2008-2019 /* Copyright 1995-1996,1998-2001,2004,2006,2008-2019,2022
Free Software Foundation, Inc. Free Software Foundation, Inc.
This file is part of Guile. This file is part of Guile.
@ -106,7 +106,7 @@ SCM_DEFINE (scm_primitive_load, "primitive-load", 1, 0, 0,
SCM port; SCM port;
port = scm_open_file_with_encoding (filename, port = scm_open_file_with_encoding (filename,
scm_from_latin1_string ("r"), scm_from_latin1_string ("re"),
SCM_BOOL_T, /* guess_encoding */ SCM_BOOL_T, /* guess_encoding */
scm_from_latin1_string ("UTF-8")); scm_from_latin1_string ("UTF-8"));