projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
fc46f0f
)
Tidy code added in 4ba71d51f72efb2af8dc9748dd62219261f2e1fd.
author
Nicholas Clark
<nick@ccl4.org>
Sun, 26 Jul 2009 10:01:15 +0000
(11:01 +0100)
committer
Nicholas Clark
<nick@ccl4.org>
Sun, 26 Jul 2009 10:01:15 +0000
(11:01 +0100)
toke.c
patch
|
blob
|
history
diff --git
a/toke.c
b/toke.c
index
56e9620
..
658d163
100644
(file)
--- 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;