diff options
Diffstat (limited to 'ext/re/t/re_funcs.t')
| -rw-r--r-- | ext/re/t/re_funcs.t | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ext/re/t/re_funcs.t b/ext/re/t/re_funcs.t index bf8202aa44..6ac33d65cc 100644 --- a/ext/re/t/re_funcs.t +++ b/ext/re/t/re_funcs.t @@ -17,12 +17,12 @@ use re qw(is_regexp regexp_pattern regmust regname regnames regnames_count regnames_iterinit regnames_iternext); { - my $qr=qr/foo/ki; + my $qr=qr/foo/pi; ok(is_regexp($qr),'is_regexp($qr)'); ok(!is_regexp(''),'is_regexp("")'); is((regexp_pattern($qr))[0],'foo','regexp_pattern[0]'); - is((regexp_pattern($qr))[1],'ik','regexp_pattern[1]'); - is(regexp_pattern($qr),'(?ki-xsm:foo)','scalar regexp_pattern'); + is((regexp_pattern($qr))[1],'ip','regexp_pattern[1]'); + is(regexp_pattern($qr),'(?pi-xsm:foo)','scalar regexp_pattern'); ok(!regexp_pattern(''),'!regexp_pattern("")'); } { |