\By\b xy y - -
\by\B yz y - -
\By\B xyz y - -
+\b n - -
+\b{gcb} n - -
+\b{lb} n - -
+\b{sb} n - -
+\b{wb} n - -
\B y - -
+\B{gcb} y - -
+\B{lb} y - -
+\B{sb} y - -
+\B{wb} y - -
\w a y - -
\w - n - -
\W a n - -
((a)(b)c)(d) abcd y $-[4] 3
((a)(b)c)(d) abcd y $+[4] 4
[a-zA-Z_][a-zA-Z0-9_]* alpha y $& alpha
+[_A-Z] } n - - # This could match on EBCDIC if A-Z not excluding things in middle
^a(bc+|b[eh])g|.h$ abh y $&-$1 bh-
(bc+d$|ef*g.|h?i(j|k)) effgz y $&-$1-$2 effgz-effgz-
(bc+d$|ef*g.|h?i(j|k)) ij y $&-$1-$2 ij-ij-j
(((a{2}){2})+) aaaaaaaaaa y $1 aaaaaaaa
(?:(f)(o)(o)|(b)(a)(r))* foobar y $1:$2:$3:$4:$5:$6 f:o:o:b:a:r
(?<=a)b ab y $& b
+(?<=af?)b ab y $& b
(?<=a)b cb n - -
+(?<=a(?:fo)?)b cb n - -
(?<=a)b b n - -
+(?<=a(?:foo)?)b b n - -
(?<!c)b ab y $& b
+(?<!c(?:foob)?)b ab y $& b
(?<!c)b cb n - -
+(?<!c(?:fooba)?)b cb n - -
(?<!c)b b y - -
+(?<!c(?:foobar)?)b b y - -
(?<!c)b b y $& b
+(?<!c(?:foobarb)?)b b y $& b
(?<%)b - c - Group name must start with a non-digit word character
(?:..)*a aba y $& aba
(?:..)*?a aba y $& a
^a(?#xxx){3}c aaac y $& aaac
'^a (?#xxx) (?#yyy) {3}c'x aaac y $& aaac
(?<![cd])b dbcb n - -
+(?<![cd]e{0,254})b dbcb n - -
(?<![cd])[ab] dbaacb y $& a
+(?<![cd]{1,2})[ab] dbaacb y $& a
+#Why does this fail. I think it's confusing (?<![cd]{1,3})[ab] dbaacb y $& a
(?<!(c|d))b dbcb n - -
(?<!(c|d))[ab] dbaacb y $& a
(?<!cd)[ab] cdaccb y $& b
([[:alpha:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 ABcd
([[:alnum:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 ABcd01Xy
([[:ascii:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 ABcd01Xy__-- ${nulnul}
-([[:cntrl:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 ${nulnul}
+([[:cntrl:]]+) ABcd01Xy__-- ${nulnul}${ffff} ya $1 ${nulnul} ff is a control on EBCDIC (non-POSIX-BC), so this fails under /u rules
([[:digit:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 01
([[:graph:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 ABcd01Xy__--
([[:lower:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 cd
((?>a+)b) aaab y $1 aaab
(?>(a+))b aaab y $1 aaa
((?>[^()]+)|\([^()]*\))+ ((abc(ade)ufh()()x y $& abc(ade)ufh()()x
-(?<=x+)y - c - Variable length lookbehind not implemented
+(?<=x+)y - c - Lookbehind longer than 255 not implemented
((def){37,17})?ABC ABC y $& ABC
\Z a\nb\n y $-[0] 3
\z a\nb\n y $-[0] 4
(abc)?(abc)+ abc y $1:$2 :abc -
'b\s^'m a\nb\n n - -
\ba a y - -
-^(a(??{"(?!)"})|(a)(?{1}))b ab y $2 a # [ID 20010811.006]
-ab(?i)cd AbCd n - - # [ID 20010809.023]
+^(a(??{"(?!)"})|(a)(?{1}))b ab y $2 a # [ID 20010811.006 (#7512)]
+ab(?i)cd AbCd n - - # [ID 20010809.023 (#7503)]
ab(?i)cd abCd y - -
(A|B)*(?(1)(CD)|(CD)) CD y $2-$3 -CD
(A|B)*(?(1)(CD)|(CD)) ABCD y $2-$3 CD-
-(A|B)*?(?(1)(CD)|(CD)) CD y $2-$3 -CD # [ID 20010803.016]
+(A|B)*?(?(1)(CD)|(CD)) CD y $2-$3 -CD # [ID 20010803.016 (#7438)]
(A|B)*?(?(1)(CD)|(CD)) ABCD y $2-$3 CD-
'^(o)(?!.*\1)'i Oo n - -
(.*)\d+\1 abc12bc y $1 bc
(?P<n>foo)(??{ $+{n} }) snofooefoofoowaa yM $+{n} foo miniperl cannot load Tie::Hash::NamedCapture
(?P<=n>foo|bar|baz) - c - Group name must start with a non-digit word character
(?P<!n>foo|bar|baz) - c - Group name must start with a non-digit word character
-(?PX<n>foo|bar|baz) - c - Sequence (?PX<...) not recognized
+(?PX<n>foo|bar|baz) - c - Sequence (?PX...) not recognized
/(?'n'foo|bar|baz)/ snofooewa y $1 foo
/(?'n'foo|bar|baz)/ snofooewa yM $+{n} foo miniperl cannot load Tie::Hash::NamedCapture
/(?'n'foo|bar|baz)(?'m'[ew]+)/ snofooewa yM $+{n} foo miniperl cannot load Tie::Hash::NamedCapture
/(a)+((?1))(fox)/ aafox y $1-$2-$3 a-a-fox
/(a){1,100}((?1))(fox)/ aafox y $1-$2-$3 a-a-fox
/(a){0,100}((?1))(fox)/ aafox y $1-$2-$3 a-a-fox
+/(a)??((?1))(fox)/ aafox y $1-$2-$3 a-a-fox
+/(a)*?((?1))(fox)/ aafox y $1-$2-$3 a-a-fox
+/(a)+?((?1))(fox)/ aafox y $1-$2-$3 a-a-fox
+/(a){1,100}?((?1))(fox)/ aafox y $1-$2-$3 a-a-fox
+/(a){0,100}?((?1))(fox)/ aafox y $1-$2-$3 a-a-fox
/(ab)?((?1))(fox)/ ababfox y $1-$2-$3 ab-ab-fox
/(ab)*((?1))(fox)/ ababfox y $1-$2-$3 ab-ab-fox
/(ab)+((?1))(fox)/ ababfox y $1-$2-$3 ab-ab-fox
/(ab){1,100}((?1))(fox)/ ababfox y $1-$2-$3 ab-ab-fox
/(ab){0,100}((?1))(fox)/ ababfox y $1-$2-$3 ab-ab-fox
+foo(?0)?bar phoofoofoobarbarbarr y $& foofoobarbar
+foo(?R)?bar phoofoofoobarbarbarr y $& foofoobarbar
# possessive captures
a++a aaaaa n - -
a*+a aaaaa n - -
(?<=abcd(?<=(aaaabcd))) ..aaaabcd.. y $1 aaaabcd
(?=xy(?<=(aaxy))) ..aaxy.. y $1 aaxy
+(?=xy(?<=(aaxyz?))) ..aaxy.. y $1 aaxy
X(\w+)(?=\s)|X(\w+) Xab y [$1-$2] [-ab]
# Verify that \N{U+...} forces Unicode rules
/\N{U+41}\x{c1}/i a\x{e1} y $& a\x{e1}
+'\N{U+41}\x{c1}'i a\x{e1} y $& a\x{e1}
/[\N{U+41}\x{c1}]/i \x{e1} y $& \x{e1}
+'[\N{U+41}\x{c1}]'i \x{e1} y $& \x{e1}
+'\N{U+41}' A y $& A # Even for single quoted patterns
[\s][\S] \x{a0}\x{a0} n - - # Unicode complements should not match same character
# Verify that \ escapes the { after \N, and causes \N to match non-newline
abc\N\{U+BEEF} abc\n{UBEEF} n
-abc\N\{U+BEEF} abc.{UBEEF} y $& abc.{UBEEF}
-[abc\N\{U+BEEF}] - c - \\N in a character class must be a named character
+abc\N\{U+BEEF\} abc.{UBEEF} y $& abc.{UBEEF}
+[abc\N\{U+BEEF\}] - c - \\N in a character class must be a named character
# Verify that \N can be trailing and causes \N to match non-newline
abc\N abcd y $& abcd
# Verify get errors. For these, we need // or else puts it in single quotes,
# and bypasses the lexer.
/\N{U+}/ - c - Invalid hexadecimal number
-# Below currently gives a misleading message
-/[\N{U+}]/ - Sc - Unmatched
-/[\N{U+}]/ - sc - Syntax error in (?[...])
+/[\N{U+}]/ - c - Invalid hexadecimal number
/abc\N{def/ - c - Missing right brace
-/\N{U+4AG3}/ - c - Illegal hexadecimal digit
-/[\N{U+4AG3}]/ - c - Illegal hexadecimal digit
+/\N{U+4AG3}/ - c - Invalid hexadecimal number
+/[\N{U+4AG3}]/ - c - Invalid hexadecimal number
# And verify that in single quotes which bypasses the lexer, the regex compiler
# figures it out.
[\N{U+}] - c - Invalid hexadecimal number
\N{U+4AG3} - c - Invalid hexadecimal number
[\N{U+4AG3}] - c - Invalid hexadecimal number
-abc\N{def - c - \\N{NAME} must be resolved by the lexer
+abc\N{def} - c - Unknown charname 'def' in regex
+abc\N{U+4AG3 - c - Missing right brace on \\N{}
+abc\N{def - c - Missing right brace on \\N{}
+abc\N{ - c - Missing right brace on \\N{}
# Verify that under /x that still cant have space before left brace
/abc\N {U+41}/x - c - Missing braces
/abc\N {SPACE}/x - c - Missing braces
-# Verifies catches hex errors, and doesn't expose our . notation to the outside
-/\N{U+0xBEEF}/ - c - Illegal hexadecimal digit
-/\N{U+BEEF.BEAD}/ - c - Illegal hexadecimal digit
+# Verifies catches hex errors
+/\N{U+0xBEEF}/ - c - Invalid hexadecimal number
+\N{U+0xBEEF} - c - Invalid hexadecimal number
+# Used to be an error, but not any more:
+/\N{U+BEEF.BEAD}/ - c -
# Verify works in single quotish context; regex compiler delivers slightly different msg
# \N{U+BEEF.BEAD} succeeds here, because can't completely hide it from the outside.
\N{U+0xBEEF} - c - Invalid hexadecimal number
-\c` - c - \"\\c`\" is more clearly written simply as \"\\ \"
-\c1 - c - \"\\c1\" is more clearly written simply as \"q\"
-\cA \001 y $& \1
-
+\c` - ac - \"\\c`\" is more clearly written simply as \"\\ \"
+\c1 - ac - \"\\c1\" is more clearly written simply as \"q\"
+\c@ \0 y $& \0
+\cA \001 y $& \001
+\cB \002 y $& \002
+\cC \003 y $& \003
+\cI \011 y $& \011
+\cJ \012 y $& \012
+\cR \022 y $& \022
+\cS \023 y $& \023
+\cX \030 y $& \030
+\cY \031 y $& \031
+\cZ \032 y $& \032
+\c[ \033 y $& \033
+\c\X \034X y $& \034X
+\c] \035 y $& \035
+\c^ \036 y $& \036
+\c_ \037 y $& \037
+\c? \177 ay $& \177
+\c? \x9F ey $& \x9F \c? is APC on EBCDIC
\400 \x{100} y $& \x{100}
\600 \x{180} y $& \x{180}
\777 \x{1FF} y $& \x{1FF}
a(.)\g{4294967297} x c - Reference to nonexistent group in regex
a(.)\g{4294967298} x c - Reference to nonexistent group in regex
-(.)\2147483648 b\o{214}7483648 y $1 b
-(.)\2147483649 b\o{214}7483649 y $1 b
-(.)\2147483650 b\o{214}7483650 y $1 b
-(.)\4294967296 b\o{42}94967296 y $1 b
-(.)\4294967297 b\o{42}94967297 y $1 b
-(.)\4294967298 b\o{42}94967298 y $1 b
-a(.)\2147483648 ab\o{214}7483648 y $1 b
-a(.)\2147483649 ab\o{214}7483649 y $1 b
-a(.)\2147483650 ab\o{214}7483650 y $1 b
-a(.)\4294967296 ab\o{42}94967296 y $1 b
-a(.)\4294967297 ab\o{42}94967297 y $1 b
-a(.)\4294967298 ab\o{42}94967298 y $1 b
+(.)\2147483648 b\o{214}7483648 ya $1 b \d not converted to native; \o{} is
+(.)\2147483649 b\o{214}7483649 ya $1 b \d not converted to native; \o{} is
+(.)\2147483650 b\o{214}7483650 ya $1 b \d not converted to native; \o{} is
+(.)\4294967296 b\o{42}94967296 ya $1 b \d not converted to native; \o{} is
+(.)\4294967297 b\o{42}94967297 ya $1 b \d not converted to native; \o{} is
+(.)\4294967298 b\o{42}94967298 ya $1 b \d not converted to native; \o{} is
+a(.)\2147483648 ab\o{214}7483648 ya $1 b \d not converted to native; \o{} is
+a(.)\2147483649 ab\o{214}7483649 ya $1 b \d not converted to native; \o{} is
+a(.)\2147483650 ab\o{214}7483650 ya $1 b \d not converted to native; \o{} is
+a(.)\4294967296 ab\o{42}94967296 ya $1 b \d not converted to native; \o{} is
+a(.)\4294967297 ab\o{42}94967297 ya $1 b \d not converted to native; \o{} is
+a(.)\4294967298 ab\o{42}94967298 ya $1 b \d not converted to native; \o{} is
# The below was inserting a NULL into the character class.
[\8\9] \000 Sn - -
^m?(\d)(.*)\1$ 5b5 y $1 5
^m?(\d)(.*)\1$ aba n - -
+^_?[^\W_0-9]\w\z \xAA\x{100} y $& \xAA\x{100} [perl #127537]
+
# 17F is 'Long s'; This makes sure the a's in /aa can be separate
/s/ai \x{17F} y $& \x{17F}
/s/aia \x{17F} n - -
/st/i \x{DF}\x{FB05} y $& \x{FB05}
/ssst/i \x{DF}\x{FB05} y $& \x{DF}\x{FB05}
-/[s]s/i \x{DF} n - -
-/s[s]/i \x{DF} n - -
# [perl #101970]
/[[:lower:]]/i \x{100} y $& \x{100}
^(A)((?(?{return 1})abc|xyz))$ Aabc y $1-$2 A-abc -
^(A)((?(?{return 0})abc|xyz))$ Axyz y $1-$2 A-xyz -
+# using 'return' in code blocks with additional scopes to pop
+^(A)(?{ { 1; return "xyz"} })B$ AB y $1-$^R A-xyz -
+^(A)((??{ { 1; return "xyz" } }))$ Axyz y $1-$2 A-xyz -
+^(A)((?(?{ { 1; return 1 } })abc|xyz))$ Aabc y $1-$2 A-abc -
+^(A)((?(?{ { 1; return 0 } })abc|xyz))$ Axyz y $1-$2 A-xyz -
+
# pattern modifier flags should propagate into returned (??{}) pattern
# p,d,l not tested
'\Awibble\z'm wibble y - -
/(alias|status)es$/i Statuses y $1 Status # [perl #121778]
/( (?&solution) | % ) \Z (?(DEFINE) (?<solution>7\%\ solution) )/x 7% solution y $1 7% solution # [perl #122890]
+(.)(?{$~=$^N}) \x{100} y $~ \x{100} # [perl #123135]
+
+/[a-z]/i \N{KELVIN SIGN} y $& \N{KELVIN SIGN}
+/[A-Z]/ia \N{KELVIN SIGN} y $& \N{KELVIN SIGN}
+/[A-Z]/iaa \N{KELVIN SIGN} n - -
+/[A-Z]/i \N{LATIN SMALL LETTER LONG S} y $& \N{LATIN SMALL LETTER LONG S}
+
+# RT #123840: these used to hang in re_intuit_start
+/w\zxy?\z/i \x{100}a\x{80}a n - -
+/w\z\R\z/i \x{100}a\x{80}a n - -
+
+/(a+){1}+a/ aaa n - - # [perl #125825]
+
+^((?(?=x)xb|ya)z) xbz y $1 xbz
+^((?(?=x)xb|ya)z) yaz y $1 yaz
+^((?(?!y)xb|ya)z) xbz y $1 xbz
+^((?(?!y)xb|ya)z) yaz y $1 yaz
+^((?(?!)xb|ya)z) xbz n - -
+^((?(?!)xb|ya)z) yaz y $1 yaz # [perl-126222]
+
+foo(*ACCEPT:foo) foo y $::REGMARK foo
+(foo(*ACCEPT:foo)) foo y $::REGMARK foo
+A(*FAIL:foo)[BC] A n $::REGERROR foo
+
+\N(?#comment){SPACE} A c - Missing braces on \\N{}
+ab(?#Comment){2}c abbc y $& abbc
+\p A A c - Character following \\p must be '{' or a single-character Unicode property name # [perl #126187
+\P:A A c - Character following \\P must be '{' or a single-character Unicode property name
+\p^ A c - Character following \\p must be '{' or a single-character Unicode property name
+\PU A c - Can't find Unicode property definition \"U\"
+
+(?i - c - Sequence (?... not terminated
+(?a-x - c - Sequence (?... not terminated
+.{1}?? - c - Nested quantifiers
+.{1}?+ - c - Nested quantifiers
+(?:.||)(?|)000000000@ 000000000@ y $& 000000000@ # [perl #126405]
+aa$|a(?R)a|a aaa y $& aaa # [perl 128420] recursive matches
+(?:\1|a)([bcd])\1(?:(?R)|e)\1 abbaccaddedcb y $& abbaccaddedcb # [perl 128420] recursive match with backreferences
+AB\s+\x{100} AB \x{100}X y - -
+\b\z0*\x{100} .\x{100} n - - # [perl #129350] crashed in intuit_start
+(.*?(a(a)|i(i))n) riiaan y $2-$3-$4-$1 aa-a--riiaan # Jump trie capture buffer issue [perl #129897]
+(^(?:(\d)x)?\d$) 1 y [$1-$2] [1-] # make sure that we reset capture buffers properly (from regtry)
+(X{2,}[-X]{1,4}){3,}X{2,} XXX-XXX-XXX-- n - - # [perl #130307]
+
+/[a b]/x \N{SPACE} yS $& # Note a space char here
+/[a b]/xx \N{SPACE} n - -
+/[a\ b]/xx \N{SPACE} y $& # Note a space char here
+/[ ^ a b ]/xx a n - -
+/[ ^ a b ]/xx b n - -
+/[ ^ a b ]/xx A y $& A
+/(?x:[a b])/xx \N{SPACE} yS $& # Note a space char here
+/(?xx:[a b])/x \N{SPACE} n - -
+/(?x)[a b]/xx \N{SPACE} yS $& # Note a space char here
+/(?xx)[a b]/x \N{SPACE} n - -
+/(?-x:[a b])/xx \N{SPACE} yS $& # Note a space char here
+^a?bcd\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff ABCDEFGHIJKLMNOPQRSTUVWXYZ n - - # [perl #132187] for valgrind's benefit
+^Xaaa?Xaa aaa\x{400000} n - - # [perl #132552] for valgrind's benefit
+([[:ascii:]]+)\x81 a\x80b\x81 y $& b\x81
+[[:^ascii:]]+b \x80a\x81b y $& \x81b
+[[:^ascii:]]+b \x80a\x81\x{100}b y $& \x81\x{100}b
+/\A\x80+\z/ \x80\x80\x80\x80\x80\x80\x80\x80\x80 y $& \x80\x80\x80\x80\x80\x80\x80\x80\x80 # [perl #132900]
+^(\d+)*?4X$ 1234X y $1 123 # perl #131648
+(?il)\x{100}|\x{100}|\x{FE} \xFE y $& \xFE
+\A([\x00-\x7F]+)(.*)\z \007\011\012 y $& \007\011\012 # [perl #133311]
+(?:(?^:(?{1}))[^0-9]) : y $& : # [perl #133348]
+/[\xdf-/i - ca - Invalid [] range # [perl #133620] likely only fails under valgrind
+/[\x59-/i - ce - Unmatched [ # [perl #133620] likely only fails under valgrind
+/\1a(b)/ bab n - - # This compiles but fails to match as \1 is not set when parsed.
+/(?iu)(?<=\xdf)hbase/ sshbase y $& hbase
+/\x{30c3}?[\x{30a2}\x{30a4}\x{30a6}\x{30a8}\x{30aa}-\x{30e2}\x{30e4}\x{30e6}\x{30e8}-\x{30f4}](?:[\x{30e3}\x{30e5}\x{30e7}\x{30a1}\x{30a3}\x{30a5}\x{30a7}\x{30a9}])?\x{30fc}?\x{30f3}?/ \x{30de}\x{30fc}\x{30af}\x{30b5}\x{30fc}\x{30d3}\x{30b9} y $& \x{30de}\x{30fc} # part of [perl #133942
+/[\x{3041}-\x{3093}]+/ \x{6f22}\x{5b57}\x{3001}\x{30ab}\x{30bf}\x{30ab}\x{30ca}\x{3001}\x{3072}\x{3089}\x{304c}\x{306a}\x{306e}\x{5165}\x{3063}\x{305f}String y $& \x{3072}\x{3089}\x{304c}\x{306a}\x{306e} # [perl #133978]
# Keep these lines at the end of the file
# vim: softtabstop=0 noexpandtab
https://perl5.git.perl.org / perl5.git / blobdiff