const'ing in cygwin.c

From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510712210613s71712346i6e9f2b5e7275aa34@mail.gmail.com>

p4raw-id: //depot/perl@32689

diff --git a/cygwin/cygwin.c b/cygwin/cygwin.c
index c3bec61..b1db756 100644 (file)
--- a/cygwin/cygwin.c
+++ b/cygwin/cygwin.c
@@ -83,7 +83,8 @@ int
 do_spawn (char *cmd)
 {
     dTHX;
 do_spawn (char *cmd)
 {
     dTHX;

-    char **a,*s,*metachars = "$&*(){}[]'\";\\?>|<~`\n";
+    char const **a;
+    char *s,*metachars = "$&*(){}[]'\";\\?>|<~`\n";

     const char *command[4];
 
     while (*cmd && isSPACE(*cmd))
     const char *command[4];
 
     while (*cmd && isSPACE(*cmd))


@@ -121,7 +122,7 @@ do_spawn (char *cmd)
            return do_spawnvp("sh",command);
        }
 
            return do_spawnvp("sh",command);
        }
 

-    Newx (PL_Argv,(s-cmd)/2+2,char*);
+    Newx (PL_Argv,(s-cmd)/2+2,const char*);

     PL_Cmd=savepvn (cmd,s-cmd);
     a=PL_Argv;
     for (s=PL_Cmd; *s;) {
     PL_Cmd=savepvn (cmd,s-cmd);
     a=PL_Argv;
     for (s=PL_Cmd; *s;) {