X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=ext%2FDynaLoader%2Fdl_dld.xs;h=101efac0ccf99e49a986c026c397b5147acb8863;hb=dd15e2708920dbc7ca0967cd7bb3cf4d1bdabec2;hp=a78af2ed7d7cb4deacd2371fd5253d11e8cc9576;hpb=cdc73a103e56840003cb817a381323974e4b9832;p=p5sagit%2Fp5-mst-13.2.git

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