From f94b59c49ee64695fd591a9eedf3ceea3737189a Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Sat, 27 Feb 2016 18:33:48 -0800
Subject: open-fileno: errno usage.
* stream.c (open_fileno): clear errno to 0 before fdopen.
---
stream.c | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
(limited to 'stream.c')
diff --git a/stream.c b/stream.c
index b55cd44c..849e7570 100644
--- a/stream.c
+++ b/stream.c
@@ -3148,7 +3148,7 @@ val open_file(val path, val mode_str)
val open_fileno(val fd, val mode_str)
{
struct stdio_mode m;
- FILE *f = w_fdopen(c_num(fd), c_str(normalize_mode(&m, mode_str)));
+ FILE *f = (errno = 0, w_fdopen(c_num(fd), c_str(normalize_mode(&m, mode_str))));
if (!f)
uw_throwf(file_error_s, lit("error opening descriptor ~a: ~d/~s"),
--
cgit v1.2.3