diff options
author | Tony Cook <tony@develop-help.com> | 2015-11-25 16:39:16 +1100 |
---|---|---|
committer | Tony Cook <tony@develop-help.com> | 2015-11-25 16:39:16 +1100 |
commit | 093d5aa02ee8c407b373bd2ff9295cf61d195c3d (patch) | |
tree | 7dfa8c05f2ddd39db1a7e837871e51e1983f905c /ext/DynaLoader | |
parent | 90e20575262bab3614aef37092de32c8b45eae41 (diff) | |
download | perl-093d5aa02ee8c407b373bd2ff9295cf61d195c3d.tar.gz |
fix an else nesting error from the last set of DynaLoader patches
Diffstat (limited to 'ext/DynaLoader')
-rw-r--r-- | ext/DynaLoader/DynaLoader_pm.PL | 2 | ||||
-rw-r--r-- | ext/DynaLoader/dl_dllload.xs | 3 |
2 files changed, 3 insertions, 2 deletions
diff --git a/ext/DynaLoader/DynaLoader_pm.PL b/ext/DynaLoader/DynaLoader_pm.PL index 5166cc4c31..c2e860bd4b 100644 --- a/ext/DynaLoader/DynaLoader_pm.PL +++ b/ext/DynaLoader/DynaLoader_pm.PL @@ -85,7 +85,7 @@ package DynaLoader; # Tim.Bunce@ig.co.uk, August 1994 BEGIN { - $VERSION = '1.36'; + $VERSION = '1.37'; } EOT diff --git a/ext/DynaLoader/dl_dllload.xs b/ext/DynaLoader/dl_dllload.xs index 84484d6109..c63ffbabb4 100644 --- a/ext/DynaLoader/dl_dllload.xs +++ b/ext/DynaLoader/dl_dllload.xs @@ -157,8 +157,9 @@ dl_find_symbol(libhandle, symbolname, ign_err=0) DLDEBUG(2, PerlIO_printf(Perl_debug_log, " symbolref = %lx\n", (unsigned long) retv)); ST(0) = sv_newmortal(); - if (retv == NULL) + if (retv == NULL) { if (!ign_err) SaveError(aTHX_ "%s", strerror(errno)); + } else sv_setiv( ST(0), PTR2IV(retv)); XSRETURN(1); |