This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
631e916
)
regexec.c: Stack ternary operator for readability
author
Karl Williamson
<khw@cpan.org>
Thu, 31 Jul 2014 03:49:03 +0000
(21:49 -0600)
committer
Karl Williamson
<khw@cpan.org>
Thu, 22 Jan 2015 05:47:28 +0000
(22:47 -0700)
regexec.c
patch
|
blob
|
blame
|
history
diff --git
a/regexec.c
b/regexec.c
index
f51517f
..
4919c15
100644
(file)
--- a/
regexec.c
+++ b/
regexec.c
@@
-4712,8
+4712,9
@@
S_regmatch(pTHX_ regmatch_info *reginfo, char *startpos, regnode *prog)
* byte is never mistakable for ASCII, and so the test
* will say it is not a word character, which is the
* correct answer. */
* byte is never mistakable for ASCII, and so the test
* will say it is not a word character, which is the
* correct answer. */
- ln = (locinput != reginfo->strbeg) ?
- UCHARAT(locinput - 1) : '\n';
+ ln = (locinput != reginfo->strbeg)
+ ? UCHARAT(locinput - 1)
+ : '\n';
switch (FLAGS(scan)) {
case REGEX_UNICODE_CHARSET:
ln = isWORDCHAR_L1(ln);
switch (FLAGS(scan)) {
case REGEX_UNICODE_CHARSET:
ln = isWORDCHAR_L1(ln);