X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=os2%2Fdl_os2.c;h=aab48dd67291285afff0344b1ee4c2255e23f7af;hb=7359b62bc3a11c954051ab3c3b794dba7a042bba;hp=4a9688cb591c7a0a9ac4cf045f541c2f268f66c8;hpb=146174a91a192983720a158796dc066226ad0e55;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/os2/dl_os2.c b/os2/dl_os2.c
index 4a9688c..aab48dd 100644
--- 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;
+}