From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 25 Oct 2001 01:53:03 +0000 (+0000)
Subject: Fixes for #12627.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c6a08c253a17bd25821c6e2e032d50a066956a42;p=p5sagit%2Fp5-mst-13.2.git

Fixes for #12627.

p4raw-id: //depot/perl@12634
---

diff --git a/ext/DynaLoader/dl_aix.xs b/ext/DynaLoader/dl_aix.xs
index c3f2c11..865cba1 100644
--- a/ext/DynaLoader/dl_aix.xs
+++ b/ext/DynaLoader/dl_aix.xs
@@ -26,6 +26,8 @@
 #include "XSUB.h"
 #include <dlfcn.h>
 
+#include "dlutils.c"	/* SaveError() etc	*/
+
 #else
 
 /*
diff --git a/ext/DynaLoader/dl_hpux.xs b/ext/DynaLoader/dl_hpux.xs
index 8fd6348..a7119ba 100644
--- a/ext/DynaLoader/dl_hpux.xs
+++ b/ext/DynaLoader/dl_hpux.xs
@@ -58,8 +58,8 @@ dl_load_file(filename, flags=0)
     PREINIT:
     shl_t obj = NULL;
     int	i, max, bind_type;
-    CODE:
     dMY_CXT;
+    CODE:
     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);