In perl.git, the branch yves/revert_skipwhite has been updated <http://perl5.git.perl.org/perl.git/commitdiff/f908820b20deee3a1c6f155a90b01972b351bcf4?hp=aa92869cf6c53d9eb86a54300cc39720259c68cd>
- Log ----------------------------------------------------------------- commit f908820b20deee3a1c6f155a90b01972b351bcf4 Author: Yves Orton <[email protected]> Date: Tue Mar 26 20:40:04 2013 +0100 Fixup for Peek.t changes. M ext/Devel-Peek/t/Peek.t commit db9c9f3f673ebf845ab82db31388160394f61ac1 Author: Yves Orton <[email protected]> Date: Tue Mar 26 20:39:31 2013 +0100 change ordering so comment is next to the right thing in regexp.h M regexp.h ----------------------------------------------------------------------- Summary of changes: ext/Devel-Peek/t/Peek.t | 2 ++ regexp.h | 4 +++- 2 files changed, 5 insertions(+), 1 deletions(-) diff --git a/ext/Devel-Peek/t/Peek.t b/ext/Devel-Peek/t/Peek.t index 1debcb5..3de4600 100644 --- a/ext/Devel-Peek/t/Peek.t +++ b/ext/Devel-Peek/t/Peek.t @@ -339,6 +339,7 @@ do_test('reference to regexp', STASH = $ADDR\\t"Regexp"' . ($] < 5.013 ? '' : ' + COMPFLAGS = 0x0 \(\) EXTFLAGS = 0x680000 \(CHECK_ALL,USE_INTUIT_NOML,USE_INTUIT_ML\) INTFLAGS = 0x0 NPARENS = 0 @@ -943,6 +944,7 @@ do_test('UTF-8 in a regular expression', PV = $ADDR "\(\?\^u:\\\\\\\\x\{100\}\)" \[UTF8 "\(\?\^u:\\\\\\\\x\{100\}\)"\] CUR = 13 STASH = $ADDR "Regexp" + COMPFLAGS = 0x0 \(\) EXTFLAGS = 0x680040 \(CHECK_ALL,USE_INTUIT_NOML,USE_INTUIT_ML\) INTFLAGS = 0x0 NPARENS = 0 diff --git a/regexp.h b/regexp.h index 40eb8e7..6b16d14 100644 --- a/regexp.h +++ b/regexp.h @@ -129,8 +129,10 @@ struct reg_code_block { I32 subcoffset; /* suboffset equiv, but in chars (for @-/@+) */ \ /* Information about the match that isn't often used */ \ /* offset from wrapped to the start of precomp */ \ - PERL_BITFIELD32 compflags:9; \ PERL_BITFIELD32 pre_prefix:4; \ + /* original flags used to compile the pattern, may differ */ \ + /* from extflags in various ways */ \ + PERL_BITFIELD32 compflags:9; \ CV *qr_anoncv /* the anon sub wrapped round qr/(?{..})/ */ typedef struct regexp { -- Perl5 Master Repository
