diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-01 01:47:55 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-01 01:47:55 +0000 |
| commit | 9c1391b69a2befe2120136591bc00863e0b9cf40 (patch) | |
| tree | b69b8ce9d3271be916b9fc74f10cfa805556c713 /ext | |
| parent | 67d733efa2b0494e14087804a18c631e4ba6ea58 (diff) | |
| download | perl-9c1391b69a2befe2120136591bc00863e0b9cf40.tar.gz | |
oops, change#5382 didn't really fix the typo
p4raw-link: @5382 on //depot/perl: fa2bf5b6565e28418facd5c97fdacbe494ba3be5
p4raw-id: //depot/perl@5384
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/DynaLoader/dl_dlopen.xs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/DynaLoader/dl_dlopen.xs b/ext/DynaLoader/dl_dlopen.xs index 9f4d9a7b01..8e4936d128 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: |