Change 12635 by gsar@rake on 2001/10/25 02:22:03
add part of change#12634 to the two files that need it; dl_aix.xs
in maint-5.6 doesn't have the branch that had the problem in
mainline
Affected files ...
... //depot/maint-5.6/perl/ext/DynaLoader/dl_dld.xs#3 edit
... //depot/maint-5.6/perl/ext/DynaLoader/dl_hpux.xs#3 edit
Differences ...
==== //depot/maint-5.6/perl/ext/DynaLoader/dl_dld.xs#3 (text) ====
Index: perl/ext/DynaLoader/dl_dld.xs
--- perl/ext/DynaLoader/dl_dld.xs.~1~ Wed Oct 24 20:30:05 2001
+++ perl/ext/DynaLoader/dl_dld.xs Wed Oct 24 20: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)
==== //depot/maint-5.6/perl/ext/DynaLoader/dl_hpux.xs#3 (text) ====
Index: perl/ext/DynaLoader/dl_hpux.xs
--- perl/ext/DynaLoader/dl_hpux.xs.~1~ Wed Oct 24 20:30:05 2001
+++ perl/ext/DynaLoader/dl_hpux.xs Wed Oct 24 20:30:05 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.
