fix up B modules for PL_* changes

[p5sagit/p5-mst-13.2.git] / ext / DynaLoader / dl_dld.xs

diff --git a/ext/DynaLoader/dl_dld.xs b/ext/DynaLoader/dl_dld.xs
index d2f2f7f..2443ab0 100644 (file)
--- a/ext/DynaLoader/dl_dld.xs
+++ b/ext/DynaLoader/dl_dld.xs
@@ -58,10 +58,10 @@ dl_private_init()
     dlderr = dld_init("/proc/self/exe");
     if (dlderr) {
 #endif
-        dlderr = dld_init(dld_find_executable(origargv[0]));
+        dlderr = dld_init(dld_find_executable(PL_origargv[0]));
         if (dlderr) {
             char *msg = dld_strerror(dlderr);
-            SaveError("dld_init(%s) failed: %s", origargv[0], msg);
+            SaveError("dld_init(%s) failed: %s", PL_origargv[0], msg);
             DLDEBUG(1,PerlIO_printf(PerlIO_stderr(), "%s", LastError));
         }
 #ifdef __linux__
@@ -77,14 +77,17 @@ BOOT:
 
 
 char *
-dl_load_file(filename)
+dl_load_file(filename, flags=0)
     char *     filename
-    CODE:
+    int                flags
+    PREINIT:
     int dlderr,x,max;
     GV *gv;
+    CODE:
     RETVAL = filename;
-    DLDEBUG(1,PerlIO_printf(PerlIO_stderr(), "dl_load_file(%s)\n", filename));
-
+    DLDEBUG(1,PerlIO_printf(PerlIO_stderr(), "dl_load_file(%s,%x):\n", filename,flags));
+    if (flags & 0x01)
+       croak("Can't make loaded symbols global on this platform while loading %s",filename);
     max = AvFILL(dl_require_symbols);
     for (x = 0; x <= max; x++) {
        char *sym = SvPVX(*av_fetch(dl_require_symbols, x, 0));
@@ -141,7 +144,7 @@ dl_undef_symbols()
     if (dld_undefined_sym_count) {
        int x;
        char **undef_syms = dld_list_undefined_sym();
-       EXTEND(sp, dld_undefined_sym_count);
+       EXTEND(SP, dld_undefined_sym_count);
        for (x=0; x < dld_undefined_sym_count; x++)
            PUSHs(sv_2mortal(newSVpv(undef_syms[x]+1, 0)));
        free(undef_syms);