From: Steve Hay <SteveHay@planit.com>
Date: Thu, 11 Aug 2005 10:56:12 +0000 (+0000)
Subject: Silence Win32 compiler warnings following change 25280
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=79d39d80fa16b653583e8ed419a151c2c3bc72fd;p=p5sagit%2Fp5-mst-13.2.git

Silence Win32 compiler warnings following change 25280

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

diff --git a/win32/win32.c b/win32/win32.c
index 6cbc08a..b21f8cd 100644
--- a/win32/win32.c
+++ b/win32/win32.c
@@ -394,7 +394,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)
 {
 #ifdef FIXCMD
 #define fixcmd(x)   {					\
@@ -721,9 +721,9 @@ 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);
+    do_spawn2(aTHX_ (char *)cmd, EXECF_EXEC);
     return FALSE;
 }