From a5a93a62b2e1f8b13d20f72f0d1a6f5266c05c37 Mon Sep 17 00:00:00 2001
From: Christopher Faylor <me@cgf.cx>
Date: Sat, 1 Feb 2003 05:00:15 +0000
Subject: * dlfcn.cc (dlerror): Only report load errors once per error.

---
 winsup/cygwin/dlfcn.cc | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

(limited to 'winsup/cygwin/dlfcn.cc')

diff --git a/winsup/cygwin/dlfcn.cc b/winsup/cygwin/dlfcn.cc
index b6babe66b..b03f685fc 100644
--- a/winsup/cygwin/dlfcn.cc
+++ b/winsup/cygwin/dlfcn.cc
@@ -144,8 +144,13 @@ dlclose (void *handle)
 char *
 dlerror ()
 {
-  char *ret = 0;
-  if (_dl_error)
-    ret = _dl_buffer;
-  return ret;
+  char *res;
+  if (!_dl_error)
+    res = NULL;
+  else
+    {
+      _dl_error = 0;
+      res = _dl_buffer;
+    }
+  return res;
 }
-- 
cgit v1.2.3