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:
eb42f19
)
regexec.c: Nits coding standards-type changing
author
Karl Williamson
<public@khwilliamson.com>
Thu, 6 Dec 2012 04:53:06 +0000
(21:53 -0700)
committer
Karl Williamson
<public@khwilliamson.com>
Sun, 9 Dec 2012 16:47:18 +0000
(09:47 -0700)
regexec.c
patch
|
blob
|
blame
|
history
diff --git
a/regexec.c
b/regexec.c
index
3b2f012
..
d235cde
100644
(file)
--- a/
regexec.c
+++ b/
regexec.c
@@
-4455,7
+4455,10
@@
S_regmatch(pTHX_ regmatch_info *reginfo, char *startpos, regnode *prog)
if (nextchr == '\r' /* And if it was CR, and the next is LF,
match the LF */
&& locinput < PL_regeol
- && UCHARAT(locinput) == '\n') locinput++;
+ && UCHARAT(locinput) == '\n')
+ {
+ locinput++;
+ }
}
else {
@@
-4473,7
+4476,7
@@
S_regmatch(pTHX_ regmatch_info *reginfo, char *startpos, regnode *prog)
char *starting = locinput;
/* In case have to backtrack the last prepend */
- char *previous_prepend =
0
;
+ char *previous_prepend =
NULL
;
LOAD_UTF8_CHARCLASS_GCB();