Change 12634 by jhi@alpha on 2001/10/25 01:53:03
Fixes for #12627.
Affected files ...
... //depot/perl/ext/DynaLoader/dl_aix.xs#30 edit
... //depot/perl/ext/DynaLoader/dl_hpux.xs#14 edit
Differences ...
==== //depot/perl/ext/DynaLoader/dl_aix.xs#30 (text) ====
Index: perl/ext/DynaLoader/dl_aix.xs
--- perl/ext/DynaLoader/dl_aix.xs.~1~ Wed Oct 24 20:00:06 2001
+++ perl/ext/DynaLoader/dl_aix.xs Wed Oct 24 20:00:06 2001
@@ -26,6 +26,8 @@
#include "XSUB.h"
#include <dlfcn.h>
+#include "dlutils.c" /* SaveError() etc */
+
#else
/*
==== //depot/perl/ext/DynaLoader/dl_hpux.xs#14 (text) ====
Index: perl/ext/DynaLoader/dl_hpux.xs
--- perl/ext/DynaLoader/dl_hpux.xs.~1~ Wed Oct 24 20:00:06 2001
+++ perl/ext/DynaLoader/dl_hpux.xs Wed Oct 24 20:00:06 2001
@@ -58,8 +58,8 @@
PREINIT:
shl_t obj = NULL;
int i, max, bind_type;
+ dMY_CXT;
CODE:
- dMY_CXT;
DLDEBUG(1,PerlIO_printf(Perl_debug_log, "dl_load_file(%s,%x):\n",
filename,flags));
if (flags & 0x01)
Perl_warn(aTHX_ "Can't make loaded symbols global on this platform while
loading %s",filename);
End of Patch.
