PERFORCE change 12637 for review

[Jarkko Hietaniemi]

Change 12637 by jhi@alpha on 2001/10/25 05:14:17

        Like dl_hpux, like dl_dld.

Affected files ...

... //depot/perl/ext/DynaLoader/dl_dld.xs#15 edit

Differences ...

==== //depot/perl/ext/DynaLoader/dl_dld.xs#15 (text) ====
Index: perl/ext/DynaLoader/dl_dld.xs
--- perl/ext/DynaLoader/dl_dld.xs.~1~   Wed Oct 24 23:30:05 2001
+++ perl/ext/DynaLoader/dl_dld.xs       Wed Oct 24 23:30:05 2001
@@ -93,8 +93,8 @@
     PREINIT:
     int dlderr,x,max;
     GV *gv;
+    dMY_CXT;
     CODE:
-    dMY_CXT;
     RETVAL = filename;
     DLDEBUG(1,PerlIO_printf(Perl_debug_log, "dl_load_file(%s,%x):\n", 
filename,flags));
     if (flags & 0x01)
@@ -180,8 +180,9 @@
 
 char *
 dl_error()
+    PREINIT:
+    dMY_CXT;
     CODE:
-    dMY_CXT;
     RETVAL = dl_last_error ;
     OUTPUT:
     RETVAL
End of Patch.