diff options
author | Karl Williamson <khw@cpan.org> | 2014-09-17 17:55:16 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2014-09-29 11:07:40 -0600 |
commit | 334afb3ef43aa91a8701c4ca7e753a5ec8e71f88 (patch) | |
tree | 7355b93b5edae4cb09c3f2eda3935208a1b9c0c2 /ext | |
parent | 9a7d4f5f5c4be53dfbc55ca52953e3794a5ef68a (diff) | |
download | perl-334afb3ef43aa91a8701c4ca7e753a5ec8e71f88.tar.gz |
Make space for /xx flag
This doesn't actually use the flag yet.
We no longer have to make version-dependent changes to
ext/Devel-Peek/t/Peek.t, (it being in /ext) so this doesn't
Diffstat (limited to 'ext')
-rw-r--r-- | ext/B/t/concise-xs.t | 3 | ||||
-rw-r--r-- | ext/Devel-Peek/t/Peek.t | 4 | ||||
-rw-r--r-- | ext/re/re.pm | 2 |
3 files changed, 5 insertions, 4 deletions
diff --git a/ext/B/t/concise-xs.t b/ext/B/t/concise-xs.t index c2258f7c6a..c1d7f186ab 100644 --- a/ext/B/t/concise-xs.t +++ b/ext/B/t/concise-xs.t @@ -166,7 +166,8 @@ my $testpkgs = { OPpSORT_INPLACE OPpSORT_INTEGER OPpSORT_NUMERIC OPpSORT_REVERSE OPpREVERSE_INPLACE OPpTARGET_MY OPpTRANS_COMPLEMENT OPpTRANS_DELETE OPpTRANS_SQUASH - PMf_CONTINUE PMf_EVAL PMf_EXTENDED PMf_FOLD PMf_GLOBAL + PMf_CONTINUE PMf_EVAL PMf_EXTENDED PMf_EXTENDED_MORE + PMf_FOLD PMf_GLOBAL PMf_KEEP PMf_NONDESTRUCT PMf_MULTILINE PMf_ONCE PMf_SINGLELINE POSTFIX SVf_FAKE SVf_IOK SVf_NOK SVf_POK SVf_ROK diff --git a/ext/Devel-Peek/t/Peek.t b/ext/Devel-Peek/t/Peek.t index dd148626a1..f321e188bb 100644 --- a/ext/Devel-Peek/t/Peek.t +++ b/ext/Devel-Peek/t/Peek.t @@ -1189,7 +1189,7 @@ do_test('UTF-8 in a regular expression', CUR = 13 STASH = $ADDR "Regexp" COMPFLAGS = 0x0 \(\) - EXTFLAGS = 0x680040 \(CHECK_ALL,USE_INTUIT_NOML,USE_INTUIT_ML\) + EXTFLAGS = 0x680080 \(CHECK_ALL,USE_INTUIT_NOML,USE_INTUIT_ML\) (?: ENGINE = $ADDR \(STANDARD\) )? INTFLAGS = 0x0(?: \(\))? NPARENS = 0 @@ -1212,7 +1212,7 @@ do_test('UTF-8 in a regular expression', PV = $ADDR "\(\?\^u:\\\\\\\\x\{100\}\)" \[UTF8 "\(\?\^u:\\\\\\\\x\{100\}\)"\] CUR = 13 COMPFLAGS = 0x0 \(\) - EXTFLAGS = 0x680040 \(CHECK_ALL,USE_INTUIT_NOML,USE_INTUIT_ML\) + EXTFLAGS = 0x680080 \(CHECK_ALL,USE_INTUIT_NOML,USE_INTUIT_ML\) (?: ENGINE = $ADDR \(STANDARD\) )? INTFLAGS = 0x0(?: \(\))? NPARENS = 0 diff --git a/ext/re/re.pm b/ext/re/re.pm index c2d6eed2d1..5904d4e00e 100644 --- a/ext/re/re.pm +++ b/ext/re/re.pm @@ -23,7 +23,7 @@ my %reflags = ( s => 1 << ($PMMOD_SHIFT + 1), i => 1 << ($PMMOD_SHIFT + 2), x => 1 << ($PMMOD_SHIFT + 3), - p => 1 << ($PMMOD_SHIFT + 4), + p => 1 << ($PMMOD_SHIFT + 5), # special cases: d => 0, l => 1, |