X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=ext%2FDynaLoader%2Fdl_dld.xs;h=2443ab0d6946b63b7b3204ec6a95847a274f5010;hb=4619340914cc8b5438e9411eca00b9f6a4805995;hp=44933ec92ca2e41dcde90224c3fad3bb415551d6;hpb=ff7f3c60e77f15ff4f5a3176285a6a22c685a51b;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/ext/DynaLoader/dl_dld.xs b/ext/DynaLoader/dl_dld.xs
index 44933ec..2443ab0 100644
--- 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__
@@ -144,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);