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 (file)
--- 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 (file)
--- 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