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 / commit
? search:
summary | shortlog | log | commit | commitdiff | tree
(parent: 1eacd84) | patch
handle /$not_utf8(?{...})$utf8/
authorDavid Mitchell <davem@iabyn.com>
Fri, 18 Nov 2011 16:54:10 +0000 (16:54 +0000)
committerDavid Mitchell <davem@iabyn.com>
Wed, 13 Jun 2012 12:32:45 +0000 (13:32 +0100)
commit947535e31c0a2b85e94f0d91c83b9303a8ddd02d
tree993ba580bde5e14a086bc2fe76576c73d6e23776tree | snapshot
parent1eacd84ce3fa74175d5457c224201e426920f5b4commit | diff
handle /$not_utf8(?{...})$utf8/

the bit of code that concats the args into a pattern and at the same time
notes the start and end indices of the text of the code blocks, got it
wrong if the pattern got upgraded half way through concatting. So work out
in advance whether the string is likely to be utf8.
regcomp.c diff | blob | blame | history
t/re/pat_re_eval.t diff | blob | blame | history
Unnamed repository; edit this file 'description' to name the repository.