summaryrefslogtreecommitdiff
path: root/t
diff options
context:
space:
mode:
authorDavid Mitchell <davem@iabyn.com>2013-12-27 23:16:23 +0000
committerDavid Mitchell <davem@iabyn.com>2014-02-07 22:39:36 +0000
commit8c33f5791c84c28e0c64bfa1457088a1547250b9 (patch)
treeb99c71777abd379955bfe5927e024ead10cfd7e7 /t
parentfec6b98abcde89943ff4e8320a305e75c5824b0e (diff)
downloadperl-8c33f5791c84c28e0c64bfa1457088a1547250b9.tar.gz
test for single-line ^ within /m
This combo doesn't appear to be tested anywhere; specifically, adding this in re_intuit_start() didn't trigger the assertion when run against the test suite: if (prog->extflags & RXf_ANCH_BOL) assert(!multiline);
Diffstat (limited to 't')
-rw-r--r--t/re/re_tests3
1 files changed, 3 insertions, 0 deletions
diff --git a/t/re/re_tests b/t/re/re_tests
index 525118d67f..577a9f0b15 100644
--- a/t/re/re_tests
+++ b/t/re/re_tests
@@ -1853,5 +1853,8 @@ A+(*PRUNE)BC(?{}) AAABC y $& AAABC
\x{100}a{2,3} \x{100}aaa y $& \x{100}aaa
^x?abc?de abcde y $& abcde
+'(?-m:^abc)'m abcde y $& abc
+'(?-m:^abc)'m x\nabcde n - -
+
# Keep these lines at the end of the file
# vim: softtabstop=0 noexpandtab