fix OS/2 coredump with POSIX::tmpnam() (from Ilya Zakharevich)

[p5sagit/p5-mst-13.2.git] / os2 / dl_os2.c

diff --git a/os2/dl_os2.c b/os2/dl_os2.c
index 4a9688c..aab48dd 100644 (file)
--- a/os2/dl_os2.c
+++ b/os2/dl_os2.c
@@ -87,3 +87,13 @@ dlerror(void)
        return buf;
 }
 
+int
+dlclose(void *handle)
+{
+       ULONG rc;
+
+       if ((rc = DosFreeModule((HMODULE)handle)) == 0) return 0;
+
+       retcode = rc;
+       return 2;
+}