This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
const'ing in cygwin.c
authorJerry D. Hedden <jdhedden@cpan.org>
Fri, 21 Dec 2007 09:13:41 +0000 (04:13 -0500)
committerSteve Peters <steve@fisharerojo.org>
Fri, 21 Dec 2007 14:19:17 +0000 (14:19 +0000)
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510712210613s71712346i6e9f2b5e7275aa34@mail.gmail.com>

p4raw-id: //depot/perl@32689

cygwin/cygwin.c

index c3bec61..b1db756 100644 (file)
@@ -83,7 +83,8 @@ int
 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))
@@ -121,7 +122,7 @@ do_spawn (char *cmd)
            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;) {