summaryrefslogtreecommitdiff
path: root/t/re/re.t
diff options
context:
space:
mode:
Diffstat (limited to 't/re/re.t')
-rw-r--r--t/re/re.t5
1 files changed, 2 insertions, 3 deletions
diff --git a/t/re/re.t b/t/re/re.t
index 249c6ddf22..10e2ee2b64 100644
--- a/t/re/re.t
+++ b/t/re/re.t
@@ -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("")');
}