From: Gurusamy Sarathy <gsar@cpan.org>
Date: Wed, 1 Mar 2000 01:33:42 +0000 (+0000)
Subject: fix bug in change#5381
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fa2bf5b6565e28418facd5c97fdacbe494ba3be5;p=p5sagit%2Fp5-mst-13.2.git

fix bug in change#5381

p4raw-link: @5381 on //depot/perl: abb9e9dca5a5f1213886f2e81a42c9a565def727

p4raw-id: //depot/perl@5382
---

diff --git a/ext/DynaLoader/dl_dlopen.xs b/ext/DynaLoader/dl_dlopen.xs
index 8020e23..9f4d9a7 100644
--- a/ext/DynaLoader/dl_dlopen.xs
+++ b/ext/DynaLoader/dl_dlopen.xs
@@ -199,8 +199,9 @@ dl_unload_file(libref)
     void *	libref
   CODE:
     DLDEBUG(1,PerlIO_printf(Perl_debug_log, "dl_unload_file(%lx):\n", libref));
-    if ((RETVAL = dlclose(libref) == 0 ? 1 : 0) == 0);
-        SaveError("%s", dlerror()) ;
+    RETVAL = (dlclose(libref) == 0 ? 1 : 0);
+    if (!RETVAL);
+        SaveError(aTHX_ "%s", dlerror()) ;
     DLDEBUG(2,PerlIO_printf(Perl_debug_log, " retval = %d\n", RETVAL));
   OUTPUT:
     RETVAL