This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
toke.c: Remove commented-out code
authorFather Chrysostomos <sprout@cpan.org>
Fri, 23 Aug 2013 05:35:28 +0000 (22:35 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Fri, 23 Aug 2013 07:09:34 +0000 (00:09 -0700)
This ‘if(){’ has been commented out since it was added in 5db068806.
Presumably the intent was to make the special mad code specific to
PL_madskills at some point and have mad builds running without
PL_madskills follow the same code as regular builds (the *s = '\0' and
PL_bufend assignments).

Since then, though, the standard code has changed to match the mad
code.  The next commit will merge them.

toke.c

diff --git a/toke.c b/toke.c
index 53a691a..fd1df9d 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -5593,7 +5593,6 @@ Perl_yylex(pTHX)
                s = SKIPSPACE0(s);
            }
            else {
-/*             if (PL_madskills && PL_lex_formbrack) { */
                    d = s;
                    while (d < PL_bufend && *d != '\n')
                        d++;
@@ -5615,9 +5614,6 @@ Perl_yylex(pTHX)
                        sv_catpvn(PL_thiswhite, s, d - s);
                    }
                    s = d;
-/*             }
-               *s = '\0';
-               PL_bufend = s; */
            }
 #else
            while (s < PL_bufend && *s != '\n')