diff options
Diffstat (limited to 't/re')
| -rw-r--r-- | t/re/pat.t | 10 | ||||
| -rw-r--r-- | t/re/pat_re_eval.t | 4 | ||||
| -rw-r--r-- | t/re/re.t | 5 |
3 files changed, 9 insertions, 10 deletions
diff --git a/t/re/pat.t b/t/re/pat.t index ba0efcdc98..3bc7f5d372 100644 --- a/t/re/pat.t +++ b/t/re/pat.t @@ -499,12 +499,12 @@ sub run_tests { } { - iseq qr/\b\v$/i, '(?i-xsm:\b\v$)', 'qr/\b\v$/i'; - iseq qr/\b\v$/s, '(?s-xim:\b\v$)', 'qr/\b\v$/s'; - iseq qr/\b\v$/m, '(?m-xis:\b\v$)', 'qr/\b\v$/m'; - iseq qr/\b\v$/x, '(?x-ism:\b\v$)', 'qr/\b\v$/x'; + iseq qr/\b\v$/i, '(?^i:\b\v$)', 'qr/\b\v$/i'; + iseq qr/\b\v$/s, '(?^s:\b\v$)', 'qr/\b\v$/s'; + iseq qr/\b\v$/m, '(?^m:\b\v$)', 'qr/\b\v$/m'; + iseq qr/\b\v$/x, '(?^x:\b\v$)', 'qr/\b\v$/x'; iseq qr/\b\v$/xism, '(?msix:\b\v$)', 'qr/\b\v$/xism'; - iseq qr/\b\v$/, '(?-xism:\b\v$)', 'qr/\b\v$/'; + iseq qr/\b\v$/, '(?^:\b\v$)', 'qr/\b\v$/'; } diff --git a/t/re/pat_re_eval.t b/t/re/pat_re_eval.t index fab828d17d..6fcbb9360b 100644 --- a/t/re/pat_re_eval.t +++ b/t/re/pat_re_eval.t @@ -77,7 +77,7 @@ sub run_tests { { our $a = bless qr /foo/ => 'Foo'; ok 'goodfood' =~ $a, "Reblessed qr // matches"; - iseq $a, '(?-xism:foo)', "Reblessed qr // stringifies"; + iseq $a, '(?^:foo)', "Reblessed qr // stringifies"; my $x = "\x{3fe}"; my $z = my $y = "\317\276"; # Byte representation of $x $a = qr /$x/; @@ -88,7 +88,7 @@ sub run_tests { "Postponed interpolation of qr // preserves UTF-8"; { local $BugId = '17776'; - iseq length qr /##/x, 12, "## in qr // doesn't corrupt memory"; + iseq length qr /##/x, 9, "## in qr // doesn't corrupt memory"; } { use re 'eval'; @@ -21,12 +21,11 @@ use re qw(is_regexp regexp_pattern is((regexp_pattern($qr))[0],'foo','regexp_pattern[0] (ref)'); is((regexp_pattern($qr))[1],'ip','regexp_pattern[1] (ref)'); - is(regexp_pattern($qr),'(?pi-xsm:foo)','scalar regexp_pattern (ref)'); + is(regexp_pattern($qr),'(?^pi:foo)','scalar regexp_pattern (ref)'); is((regexp_pattern($rx))[0],'foo','regexp_pattern[0] (bare REGEXP)'); is((regexp_pattern($rx))[1],'ip','regexp_pattern[1] (bare REGEXP)'); - is(regexp_pattern($rx),'(?pi-xsm:foo)', - 'scalar regexp_pattern (bare REGEXP)'); + is(regexp_pattern($rx),'(?^pi:foo)', 'scalar regexp_pattern (bare REGEXP)'); ok(!regexp_pattern(''),'!regexp_pattern("")'); } |