Fix missing X in 2 embed.fnc entries

[perl5.git] / ext / DynaLoader / dl_aix.xs

diff --git a/ext/DynaLoader/dl_aix.xs b/ext/DynaLoader/dl_aix.xs
index 137af19..8e7d8ac 100644 (file)
--- a/ext/DynaLoader/dl_aix.xs
+++ b/ext/DynaLoader/dl_aix.xs
@@ -13,6 +13,7 @@
 
 #define PERLIO_NOT_STDIO 0
 #define PERL_EXT
+#define PERL_IN_DL_AIX_XS
 
 /*
  * On AIX 4.3 and above the emulation layer is not needed any more, and
@@ -721,9 +722,10 @@ dl_unload_file(libref)
     RETVAL
 
 void
-dl_find_symbol(libhandle, symbolname)
+dl_find_symbol(libhandle, symbolname, ign_err=0)
        void *          libhandle
        char *          symbolname
+        int            ign_err
        PREINIT:
         void *retv;
         CODE:
@@ -731,10 +733,11 @@ dl_find_symbol(libhandle, symbolname)
                libhandle, symbolname));
        retv = dlsym(libhandle, symbolname);
        DLDEBUG(2,PerlIO_printf(Perl_debug_log, "  symbolref = %x\n", retv));
-       ST(0) = sv_newmortal() ;
-       if (retv == NULL)
-           SaveError(aTHX_ "%s",dlerror()) ;
-       else
+       ST(0) = sv_newmortal();
+       if (retv == NULL) {
+            if (!ign_err)
+               SaveError(aTHX_ "%s", dlerror());
+       } else
            sv_setiv( ST(0), PTR2IV(retv));