const'ing parameters killed the builds for djgpp. Changes get the

Perl core, but not the modules, to compile cleanly.

p4raw-id: //depot/perl@26680

diff --git a/djgpp/djgpp.c b/djgpp/djgpp.c
index e2260d5..caa4640 100644 (file)
--- a/djgpp/djgpp.c
+++ b/djgpp/djgpp.c
@@ -222,7 +222,7 @@ do_spawn (pTHX_ char *cmd)
 }
 
 bool
-Perl_do_exec (pTHX_ char *cmd)
+Perl_do_exec (pTHX_ const char *cmd)
 {
     do_spawn2 (aTHX_ cmd,EXECF_EXEC);
     return FALSE;

diff --git a/djgpp/djgpp.h b/djgpp/djgpp.h
index a020ae9..bb792e2 100644 (file)
--- a/djgpp/djgpp.h
+++ b/djgpp/djgpp.h
@@ -34,7 +34,7 @@ int
 do_spawn (pTHX_ char *cmd);
 
 bool
-Perl_do_exec (pTHX_ char *cmd);
+Perl_do_exec (pTHX_ const char *cmd);
 
 void
 Perl_init_os_extras(pTHX);