From: Jerry D. Hedden <jdhedden@cpan.org>
Date: Fri, 21 Dec 2007 09:13:41 +0000 (-0500)
Subject: const'ing in cygwin.c
X-Git-Tag: accepted/trunk/20130322.191538~13969
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=3f5211dd25d06319ac363a33485c17282b4021a7;p=platform%2Fupstream%2Fperl.git

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
--- a/cygwin/cygwin.c
+++ b/cygwin/cygwin.c
@@ -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;) {