oops, change#5382 didn't really fix the typo
Gurusamy Sarathy [Wed, 1 Mar 2000 01:47:55 +0000 (01:47 +0000)]
p4raw-link: @5382 on //depot/perl: fa2bf5b6565e28418facd5c97fdacbe494ba3be5

p4raw-id: //depot/perl@5384

ext/DynaLoader/dl_dlopen.xs

index 9f4d9a7..8e4936d 100644 (file)
@@ -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: