From: Steve Peters <steve@fisharerojo.org>
Date: Sat, 7 Jan 2006 03:13:05 +0000 (+0000)
Subject: Additional const prototype fixes.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=751e07d25baab526d39c963788455e4174c307b0;p=p5sagit%2Fp5-mst-13.2.git

Additional const prototype fixes.

p4raw-id: //depot/perl@26694
---

diff --git a/os2/os2.c b/os2/os2.c
index b81977e..38e47dd 100644
--- 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
--- 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;