X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=util.c;h=67ed3939515a2e99a1d0000c6ae179764faa14b3;hb=0bcc34c2b0b0cb62c0df3d5e562b779fb96595ba;hp=e549221741e2206ed8a569db7c2cbbbf7c1bebb5;hpb=ca8d897694915d32eefc26fbdc726d3457e7fedc;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/util.c b/util.c
index e549221..67ed393 100644
--- a/util.c
+++ b/util.c
@@ -2654,7 +2654,7 @@ Perl_wait4pid(pTHX_ Pid_t pid, int *statusp, int flags)
 	    if ((entry = hv_iternext(PL_pidstatus))) {
 		SV * const sv = hv_iterval(PL_pidstatus,entry);
 		I32 len;
-		const char *spid = hv_iterkey(entry,&len);
+		const char * const spid = hv_iterkey(entry,&len);
 
 		assert (len == sizeof(Pid_t));
 		memcpy((char *)&pid, spid, len);
@@ -2836,7 +2836,7 @@ Perl_find_script(pTHX_ const char *scriptname, bool dosearch,
 #endif
     /* additional extensions to try in each dir if scriptname not found */
 #ifdef SEARCH_EXTS
-    const char *const exts[] = { SEARCH_EXTS };
+    static const char *const exts[] = { SEARCH_EXTS };
     const char *const *const ext = search_ext ? search_ext : exts;
     int extidx = 0, i = 0;
     const char *curext = Nullch;