fix an else nesting error from the last set of DynaLoader patches

diff --git a/ext/DynaLoader/DynaLoader_pm.PL b/ext/DynaLoader/DynaLoader_pm.PL
index 5166cc4..c2e860b 100644 (file)
--- 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 84484d6..c63ffba 100644 (file)
--- 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);