This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Very little const-propagation remains related to Perl_moreswitches().
authorNicholas Clark <nick@ccl4.org>
Mon, 14 Apr 2008 17:46:26 +0000 (17:46 +0000)
committerNicholas Clark <nick@ccl4.org>
Mon, 14 Apr 2008 17:46:26 +0000 (17:46 +0000)
p4raw-id: //depot/perl@33681

perl.c
pod/perltodo.pod

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 == '-') {
index b79980e..ad1d6ce 100644 (file)
@@ -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