diff options
| author | Matthew Horsfall (alh) <wolfsage@gmail.com> | 2014-10-22 20:50:13 -0400 |
|---|---|---|
| committer | Matthew Horsfall <wolfsage@gmail.com> | 2014-12-28 09:34:03 -0500 |
| commit | fde14af1e494660628714463be39d015ab768ff4 (patch) | |
| tree | 65e11762e97dcb08ff0906f32795cb884a2379ca /ext/Devel-Peek | |
| parent | e3b64d84f2a2d0eace596457dba25ca4974384e5 (diff) | |
| download | perl-fde14af1e494660628714463be39d015ab768ff4.tar.gz | |
Fixes to make test pass for regexp nocapture bit addition.
* Make Devel-Peek/t/Peek.t less sensitive to regexp flag changes.
Devel-Peek had flag names and binary representation hardcoded. Flag
names *should* be enough. Otherwise we have to update bits of this
test every time we muck with flags that don't affect the flags being
tested.
* Let B::Deparse know about the new RXf_PMf_CHARSET shift value.
Diffstat (limited to 'ext/Devel-Peek')
| -rw-r--r-- | ext/Devel-Peek/t/Peek.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/Devel-Peek/t/Peek.t b/ext/Devel-Peek/t/Peek.t index 118b35ef6a..062aa2e03b 100644 --- a/ext/Devel-Peek/t/Peek.t +++ b/ext/Devel-Peek/t/Peek.t @@ -1190,7 +1190,7 @@ do_test('UTF-8 in a regular expression', CUR = 13 STASH = $ADDR "Regexp" COMPFLAGS = 0x0 \(\) - EXTFLAGS = 0x680080 \(CHECK_ALL,USE_INTUIT_NOML,USE_INTUIT_ML\) + EXTFLAGS = $ADDR \(CHECK_ALL,USE_INTUIT_NOML,USE_INTUIT_ML\) (?: ENGINE = $ADDR \(STANDARD\) )? INTFLAGS = 0x0(?: \(\))? NPARENS = 0 @@ -1213,7 +1213,7 @@ do_test('UTF-8 in a regular expression', PV = $ADDR "\(\?\^u:\\\\\\\\x\{100\}\)" \[UTF8 "\(\?\^u:\\\\\\\\x\{100\}\)"\] CUR = 13 COMPFLAGS = 0x0 \(\) - EXTFLAGS = 0x680080 \(CHECK_ALL,USE_INTUIT_NOML,USE_INTUIT_ML\) + EXTFLAGS = $ADDR \(CHECK_ALL,USE_INTUIT_NOML,USE_INTUIT_ML\) (?: ENGINE = $ADDR \(STANDARD\) )? INTFLAGS = 0x0(?: \(\))? NPARENS = 0 |