Change 33681 by [EMAIL PROTECTED] on 2008/04/14 17:46:26
Very little const-propagation remains related to Perl_moreswitches().
Affected files ...
... //depot/perl/perl.c#868 edit
... //depot/perl/pod/perltodo.pod#219 edit
Differences ...
==== //depot/perl/perl.c#868 (text) ====
Index: perl/perl.c
--- perl/perl.c#867~33671~ 2008-04-13 03:28:31.000000000 -0700
+++ perl/perl.c 2008-04-14 10:46:26.000000000 -0700
@@ -1988,7 +1988,7 @@
else {
char *popt_copy = NULL;
while (s && *s) {
- char *d;
+ const char *d;
while (isSPACE(*s))
s++;
if (*s == '-') {
==== //depot/perl/pod/perltodo.pod#219 (text) ====
Index: perl/pod/perltodo.pod
--- perl/pod/perltodo.pod#218~33663~ 2008-04-08 13:48:30.000000000 -0700
+++ perl/pod/perltodo.pod 2008-04-14 10:46:26.000000000 -0700
@@ -664,13 +664,6 @@
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
End of Patch.
