From: Gurusamy Sarathy <gsar@cpan.org>
Date: Wed, 1 Mar 2000 01:47:55 +0000 (+0000)
Subject: oops, change#5382 didn't really fix the typo
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9c1391b69a2befe2120136591bc00863e0b9cf40;p=p5sagit%2Fp5-mst-13.2.git

oops, change#5382 didn't really fix the typo

p4raw-link: @5382 on //depot/perl: fa2bf5b6565e28418facd5c97fdacbe494ba3be5

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

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