projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
abb9e9d
)
fix bug in change#5381
author
Gurusamy Sarathy
<gsar@cpan.org>
Wed, 1 Mar 2000 01:33:42 +0000
(
01:33
+0000)
committer
Gurusamy Sarathy
<gsar@cpan.org>
Wed, 1 Mar 2000 01:33:42 +0000
(
01:33
+0000)
p4raw-link: @5381 on //depot/perl:
abb9e9dca5a5f1213886f2e81a42c9a565def727
p4raw-id: //depot/perl@5382
ext/DynaLoader/dl_dlopen.xs
patch
|
blob
|
history
diff --git
a/ext/DynaLoader/dl_dlopen.xs
b/ext/DynaLoader/dl_dlopen.xs
index
8020e23
..
9f4d9a7
100644
(file)
--- 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