In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/bd0ab00df494c0f393ee5623b3a949ae9e0ae15e?hp=fc46f0f6acf947702bfc9ac32e05b1f4e8f4c720>
- Log ----------------------------------------------------------------- commit bd0ab00df494c0f393ee5623b3a949ae9e0ae15e Author: Nicholas Clark <[email protected]> Date: Sun Jul 26 11:01:15 2009 +0100 Tidy code added in 4ba71d51f72efb2af8dc9748dd62219261f2e1fd. ----------------------------------------------------------------------- Summary of changes: toke.c | 9 ++++----- 1 files changed, 4 insertions(+), 5 deletions(-) diff --git a/toke.c b/toke.c index 56e9620..658d163 100644 --- a/toke.c +++ b/toke.c @@ -4001,11 +4001,10 @@ Perl_yylex(pTHX) do { bool baduni = FALSE; if (*d1 == 'C') { - const char *d2 = d1; - d2++; - parse_unicode_opts( (const char **)&d2 ) - == PL_unicode - || (baduni = TRUE); + const char *d2 = d1 + 1; + if (parse_unicode_opts((const char **)&d2) + != PL_unicode) + baduni = TRUE; } if (baduni || *d1 == 'M' || *d1 == 'm') { const char * const m = d1; -- Perl5 Master Repository
