From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 14 Apr 2008 17:46:26 +0000 (+0000)
Subject: Very little const-propagation remains related to Perl_moreswitches().
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=549135093eac93ac67c83cd65e6d8789e8b205a2;p=p5sagit%2Fp5-mst-13.2.git

Very little const-propagation remains related to Perl_moreswitches().

p4raw-id: //depot/perl@33681
---

diff --git a/perl.c b/perl.c
index d7a07eb..0ba663b 100644
--- a/perl.c
+++ b/perl.c
@@ -1988,7 +1988,7 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit)
 	else {
 	    char *popt_copy = NULL;
 	    while (s && *s) {
-	        char *d;
+	        const char *d;
 		while (isSPACE(*s))
 		    s++;
 		if (*s == '-') {
diff --git a/pod/perltodo.pod b/pod/perltodo.pod
index b79980e..ad1d6ce 100644
--- a/pod/perltodo.pod
+++ b/pod/perltodo.pod
@@ -664,13 +664,6 @@ only the interpretation of non-ASCII characters, and not for the script file
 handle. To make it work needs some investigation of the ordering of function
 calls during startup, and (by implication) a bit of tweaking of that order.
 
-=head2 Propagate const outwards from Perl_moreswitches()
-
-Change 32057 changed the parameter and return value of C<Perl_moreswitches()>
-from <char *> to <const char *>. It should now be possible to propagate
-const-correctness outwards to C<S_parse_body()>, C<Perl_moreswitches()>
-and C<Perl_yylex()>.
-
 =head2 Duplicate logic in S_method_common() and Perl_gv_fetchmethod_autoload()
 
 A comment in C<S_method_common> notes