This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
67d733e
)
oops, change#5382 didn't really fix the typo
author
Gurusamy Sarathy
<gsar@cpan.org>
Wed, 1 Mar 2000 01:47:55 +0000
(
01:47
+0000)
committer
Gurusamy Sarathy
<gsar@cpan.org>
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
patch
|
blob
|
blame
|
history
diff --git
a/ext/DynaLoader/dl_dlopen.xs
b/ext/DynaLoader/dl_dlopen.xs
index
9f4d9a7
..
8e4936d
100644
(file)
--- 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: