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:
0aa38fa
)
valgrind and /#/x
author
Dave Mitchell
<davem@fdisolutions.com>
Mon, 25 Aug 2003 13:27:49 +0000
(14:27 +0100)
committer
Jarkko Hietaniemi
<jhi@iki.fi>
Mon, 25 Aug 2003 11:28:45 +0000
(11:28 +0000)
Message-ID: <
20030825122748
.GA15560@fdgroup.com>
p4raw-id: //depot/perl@20880
regcomp.c
patch
|
blob
|
blame
|
history
diff --git
a/regcomp.c
b/regcomp.c
index
dedcd00
..
556922a
100644
(file)
--- a/
regcomp.c
+++ b/
regcomp.c
@@
-4285,7
+4285,8
@@
S_nextchar(pTHX_ RExC_state_t *pRExC_state)
else if (*RExC_parse == '#') {
while (*RExC_parse && *RExC_parse != '\n')
RExC_parse++;
- RExC_parse++;
+ if (*RExC_parse)
+ RExC_parse++;
continue;
}
}