From 9c1391b69a2befe2120136591bc00863e0b9cf40 Mon Sep 17 00:00:00 2001 From: Gurusamy Sarathy Date: Wed, 1 Mar 2000 01:47:55 +0000 Subject: [PATCH] oops, change#5382 didn't really fix the typo p4raw-link: @5382 on //depot/perl: fa2bf5b6565e28418facd5c97fdacbe494ba3be5 p4raw-id: //depot/perl@5384 --- ext/DynaLoader/dl_dlopen.xs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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: -- 1.8.3.1