From: Perl 5 Porters <perl5-porters@africa.nicoh.com>
Date: Fri, 15 Mar 1996 07:42:12 +0000 (+0000)
Subject: OS/2 update
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=28578fc3ab74c533ed42d816d7c7ab5737c78521;p=p5sagit%2Fp5-mst-13.2.git

OS/2 update
---

diff --git a/ext/DynaLoader/dl_os2.xs b/ext/DynaLoader/dl_os2.xs
index 5ca213b..2c72be2 100644
--- a/ext/DynaLoader/dl_os2.xs
+++ b/ext/DynaLoader/dl_os2.xs
@@ -27,6 +27,8 @@ dlopen(char *path, int mode)
 	if ((rc = DosLoadModule(fail, sizeof fail, path, &handle)) == 0)
 		return (void *)handle;
 
+	retcode = rc;
+
 	/* Not found. Check for non-FAT name and try truncated name. */
 	/* Don't know if this helps though... */
 	for (beg = dot = path + strlen(path);
@@ -42,7 +44,6 @@ dlopen(char *path, int mode)
 			return (void *)handle;
 	}
 
-	retcode = rc;
 	return NULL;
 }