[perl #77376]
Fix the following build warnings that are now being
generated because -Wwrite-string has been turned on:
cygwin.c: In function `do_aspawn':
cygwin.c:69: warning: assignment discards qualifiers from pointer target type
cygwin.c: In function `do_spawn':
cygwin.c:91: warning: initialization discards qualifiers from pointer
target type
cygwin.c: In function `init_os_extras':
cygwin.c:544: warning: initialization discards qualifiers from pointer
target type
{
dTHX;
int rc;
- char **a,*tmps,**argv;
- STRLEN n_a;
+ char const **a;
+ char *tmps,**argv;
+ STRLEN n_a;
if (sp<=mark)
return -1;
- a=argv=(char**) alloca ((sp-mark+3)*sizeof (char*));
+ argv=(char**) alloca ((sp-mark+3)*sizeof (char*));
+ a=(char const **)argv;
while (++mark <= sp)
if (*mark)
{
dTHX;
char const **a;
- char *s,*metachars = "$&*(){}[]'\";\\?>|<~`\n";
+ char *s;
+ char const *metachars = "$&*(){}[]'\";\\?>|<~`\n";
const char *command[4];
while (*cmd && isSPACE(*cmd))
init_os_extras(void)
{
dTHX;
- char *file = __FILE__;
+ char const *file = __FILE__;
void *handle;
newXS("Cwd::cwd", Cygwin_cwd, file);