diff options
| author | Yves Orton <yves.orton@booking.com> | 2014-01-30 14:02:44 +0800 |
|---|---|---|
| committer | Yves Orton <yves.orton@booking.com> | 2014-01-31 01:45:34 +0800 |
| commit | e3e400ec345b9fd8b4129bb36c3d0b73c95cadcd (patch) | |
| tree | be82a1eac4b7b69c34290313737514197b275b72 /ext/Devel-Peek | |
| parent | e80e3195a56ee8ba20dc0e0f5d5381af5ec5ac33 (diff) | |
| download | perl-e3e400ec345b9fd8b4129bb36c3d0b73c95cadcd.tar.gz | |
move RXf_NOSCAN from extflags to intflags as PREGf_NOSCAN
Includes some improvements to how we dump regexps so that when a regexp
is for the standard perl engine we also show the intflags for the engine
Diffstat (limited to 'ext/Devel-Peek')
| -rw-r--r-- | ext/Devel-Peek/t/Peek.t | 31 |
1 files changed, 18 insertions, 13 deletions
diff --git a/ext/Devel-Peek/t/Peek.t b/ext/Devel-Peek/t/Peek.t index dbc988304d..9fb1f016b4 100644 --- a/ext/Devel-Peek/t/Peek.t +++ b/ext/Devel-Peek/t/Peek.t @@ -362,6 +362,7 @@ do_test('reference to named subroutine without prototype', OUTSIDE = $ADDR \\(MAIN\\)'); if ($] >= 5.011) { +# note the conditionals on ENGINE and INTFLAGS were introduced in 5.19.9 do_test('reference to regexp', qr(tic), 'SV = $RV\\($ADDR\\) at $ADDR @@ -380,7 +381,8 @@ do_test('reference to regexp', ' COMPFLAGS = 0x0 \(\) EXTFLAGS = 0x680000 \(CHECK_ALL,USE_INTUIT_NOML,USE_INTUIT_ML\) - INTFLAGS = 0x0 +(?: ENGINE = $ADDR \(STANDARD\) +)? INTFLAGS = 0x0(?: \(\))? NPARENS = 0 LASTPAREN = 0 LASTCLOSEPAREN = 0 @@ -392,8 +394,8 @@ do_test('reference to regexp', SUBOFFSET = 0 SUBCOFFSET = 0 SUBBEG = 0x0 - ENGINE = $ADDR - MOTHER_RE = $ADDR' +(?: ENGINE = $ADDR +)? MOTHER_RE = $ADDR' . ($] < 5.019003 ? '' : ' SV = REGEXP\($ADDR\) at $ADDR REFCNT = 2 @@ -402,7 +404,8 @@ do_test('reference to regexp', CUR = 8 COMPFLAGS = 0x0 \(\) EXTFLAGS = 0x680000 \(CHECK_ALL,USE_INTUIT_NOML,USE_INTUIT_ML\) - INTFLAGS = 0x0 +(?: ENGINE = $ADDR \(STANDARD\) +)? INTFLAGS = 0x0(?: \(\))? NPARENS = 0 LASTPAREN = 0 LASTCLOSEPAREN = 0 @@ -414,8 +417,8 @@ do_test('reference to regexp', SUBOFFSET = 0 SUBCOFFSET = 0 SUBBEG = 0x0 - ENGINE = $ADDR - MOTHER_RE = 0x0 +(?: ENGINE = $ADDR +)? MOTHER_RE = 0x0 PAREN_NAMES = 0x0 SUBSTRS = $ADDR PPRIVATE = $ADDR @@ -1198,7 +1201,7 @@ unless ($Config{useithreads}) { pass "no crash with DeadCode"; close OUT; } - +# note the conditionals on ENGINE and INTFLAGS were introduced in 5.19.9 do_test('UTF-8 in a regular expression', qr/\x{100}/, 'SV = IV\($ADDR\) at $ADDR @@ -1213,7 +1216,8 @@ do_test('UTF-8 in a regular expression', STASH = $ADDR "Regexp" COMPFLAGS = 0x0 \(\) EXTFLAGS = 0x680040 \(CHECK_ALL,USE_INTUIT_NOML,USE_INTUIT_ML\) - INTFLAGS = 0x0 +(?: ENGINE = $ADDR \(STANDARD\) +)? INTFLAGS = 0x0(?: \(\))? NPARENS = 0 LASTPAREN = 0 LASTCLOSEPAREN = 0 @@ -1225,8 +1229,8 @@ do_test('UTF-8 in a regular expression', SUBOFFSET = 0 SUBCOFFSET = 0 SUBBEG = 0x0 - ENGINE = $ADDR - MOTHER_RE = $ADDR' +(?: ENGINE = $ADDR +)? MOTHER_RE = $ADDR' . ($] < 5.019003 ? '' : ' SV = REGEXP\($ADDR\) at $ADDR REFCNT = 2 @@ -1235,7 +1239,8 @@ do_test('UTF-8 in a regular expression', CUR = 13 COMPFLAGS = 0x0 \(\) EXTFLAGS = 0x680040 \(CHECK_ALL,USE_INTUIT_NOML,USE_INTUIT_ML\) - INTFLAGS = 0x0 +(?: ENGINE = $ADDR \(STANDARD\) +)? INTFLAGS = 0x0(?: \(\))? NPARENS = 0 LASTPAREN = 0 LASTCLOSEPAREN = 0 @@ -1247,8 +1252,8 @@ do_test('UTF-8 in a regular expression', SUBOFFSET = 0 SUBCOFFSET = 0 SUBBEG = 0x0 - ENGINE = $ADDR - MOTHER_RE = 0x0 +(?: ENGINE = $ADDR +)? MOTHER_RE = 0x0 PAREN_NAMES = 0x0 SUBSTRS = $ADDR PPRIVATE = $ADDR |