Additional const prototype fixes.

p4raw-id: //depot/perl@26694

diff --git a/os2/os2.c b/os2/os2.c
index b81977e..38e47dd 100644 (file)
--- a/os2/os2.c
+++ b/os2/os2.c
@@ -1538,7 +1538,7 @@ do_spawn_nowait(pTHX_ char *cmd)
 }
 
 bool
-Perl_do_exec(pTHX_ char *cmd)
+Perl_do_exec(pTHX_ const char *cmd)
 {
     do_spawn3(aTHX_ cmd, EXECF_EXEC, 0);
     return FALSE;

diff --git a/wince/wince.c b/wince/wince.c
index da30dcb..af0d364 100644 (file)
--- a/wince/wince.c
+++ b/wince/wince.c
@@ -354,7 +354,7 @@ has_shell_metachars(char *ptr)
  * the library functions will get the correct environment
  */
 PerlIO *
-Perl_my_popen(pTHX_ char *cmd, char *mode)
+Perl_my_popen(pTHX_ const char *cmd, const char *mode)
 {
   printf("popen(%s)\n", cmd);
 
@@ -629,7 +629,7 @@ Perl_do_spawn_nowait(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;