diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-10-26 21:42:59 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-10-26 21:42:59 +0000 |
| commit | dff6d3cd91bb8f94ad6445629f3bfb07c761a04e (patch) | |
| tree | 2fdb1d6ee1668406fc46ad998bab2befadecdcd1 /win32 | |
| parent | 12b99c3939cdc258628e89c11e6677725b2947c0 (diff) | |
| download | perl-dff6d3cd91bb8f94ad6445629f3bfb07c761a04e.tar.gz | |
warnings and const violations identified by compiling in C++ mode
with GCC v2.95
p4raw-id: //depot/perl@4461
Diffstat (limited to 'win32')
| -rw-r--r-- | win32/win32.c | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/win32/win32.c b/win32/win32.c index 1bfb6feaa0..efb52d92a9 100644 --- a/win32/win32.c +++ b/win32/win32.c @@ -94,7 +94,7 @@ int _CRT_glob = 0; #endif static void get_shell(void); -static long tokenize(char *str, char **dest, char ***destv); +static long tokenize(const char *str, char **dest, char ***destv); int do_spawn2(char *cmd, int exectype); static BOOL has_shell_metachars(char *ptr); static long filetime_to_clock(PFILETIME ft); @@ -427,7 +427,7 @@ win32_os_id(void) * Returns number of words in result buffer. */ static long -tokenize(char *str, char **dest, char ***destv) +tokenize(const char *str, char **dest, char ***destv) { char *retstart = Nullch; char **retvstart = 0; @@ -485,8 +485,9 @@ get_shell(void) * interactive use (which is what most programs look in COMSPEC * for). */ - char* defaultshell = (IsWinNT() ? "cmd.exe /x/c" : "command.com /c"); - char *usershell = getenv("PERL5SHELL"); + const char* defaultshell = (IsWinNT() + ? "cmd.exe /x/c" : "command.com /c"); + const char *usershell = getenv("PERL5SHELL"); w32_perlshell_items = tokenize(usershell ? usershell : defaultshell, &w32_perlshell_tokens, &w32_perlshell_vec); |