diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-01 01:33:42 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-01 01:33:42 +0000 |
| commit | fa2bf5b6565e28418facd5c97fdacbe494ba3be5 (patch) | |
| tree | aadc6cb3343ecf91c69cd1a126aa546c65556416 /ext | |
| parent | abb9e9dca5a5f1213886f2e81a42c9a565def727 (diff) | |
| download | perl-fa2bf5b6565e28418facd5c97fdacbe494ba3be5.tar.gz | |
fix bug in change#5381
p4raw-link: @5381 on //depot/perl: abb9e9dca5a5f1213886f2e81a42c9a565def727
p4raw-id: //depot/perl@5382
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/DynaLoader/dl_dlopen.xs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/ext/DynaLoader/dl_dlopen.xs b/ext/DynaLoader/dl_dlopen.xs index 8020e23d97..9f4d9a7b01 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 |