diff options
| author | Steve Hay <SteveHay@planit.com> | 2005-08-11 10:56:12 +0000 |
|---|---|---|
| committer | Steve Hay <SteveHay@planit.com> | 2005-08-11 10:56:12 +0000 |
| commit | 79d39d80fa16b653583e8ed419a151c2c3bc72fd (patch) | |
| tree | a48ed1165bae5fe62e8f13d561f0108a112e530c /win32 | |
| parent | aa924a5a9419ef5f1f81112bb1826bb7171ca797 (diff) | |
| download | perl-79d39d80fa16b653583e8ed419a151c2c3bc72fd.tar.gz | |
Silence Win32 compiler warnings following change 25280
p4raw-id: //depot/perl@25286
Diffstat (limited to 'win32')
| -rw-r--r-- | win32/win32.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/win32/win32.c b/win32/win32.c index 6cbc08a2a2..b21f8cd58f 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; } |