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: 4195347) | patch
propagate /msix and (?msix) etc flags into (??{})
authorDavid Mitchell <davem@iabyn.com>
Wed, 6 Jun 2012 16:16:19 +0000 (17:16 +0100)
committerDavid Mitchell <davem@iabyn.com>
Wed, 13 Jun 2012 12:32:57 +0000 (13:32 +0100)
commitec841a2713df373c7218f3a42db1c4cfd1a58ed7
tree0aeced93c0c821992e520f97c9cf0863d2b635d7tree | snapshot
parent41953474e1ef403e3890fdf87368595ac0a92cb8commit | diff
propagate /msix and (?msix) etc flags into (??{})

In  /.........(??{ some_string_value; }).../flags
and /(?flags).(??{ some_string_value; }).../,

use flags when compiling the inner /some_string_value/ pattern.

Achieve this by storing the compile-time modifier flags in the
(apparently) unused 'flags' field of the EVAL node in the (??{})
case.
ext/re/t/reflags.t diff | blob | blame | history
regcomp.c diff | blob | blame | history
regexec.c diff | blob | blame | history
t/re/re_tests diff | blob | blame | history
Unnamed repository; edit this file 'description' to name the repository.