From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 25 Oct 2001 05:14:17 +0000 (+0000)
Subject: Like dl_hpux, like dl_dld.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ec2c99ef44702c6855b1e18d57dfd356f1d5932d;p=p5sagit%2Fp5-mst-13.2.git

Like dl_hpux, like dl_dld.

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

diff --git a/ext/DynaLoader/dl_dld.xs b/ext/DynaLoader/dl_dld.xs
index a78af2e..101efac 100644
--- a/ext/DynaLoader/dl_dld.xs
+++ b/ext/DynaLoader/dl_dld.xs
@@ -93,8 +93,8 @@ dl_load_file(filename, flags=0)
     PREINIT:
     int dlderr,x,max;
     GV *gv;
-    CODE:
     dMY_CXT;
+    CODE:
     RETVAL = filename;
     DLDEBUG(1,PerlIO_printf(Perl_debug_log, "dl_load_file(%s,%x):\n", filename,flags));
     if (flags & 0x01)
@@ -180,8 +180,9 @@ dl_install_xsub(perl_name, symref, filename="$Package")
 
 char *
 dl_error()
-    CODE:
+    PREINIT:
     dMY_CXT;
+    CODE:
     RETVAL = dl_last_error ;
     OUTPUT:
     RETVAL