diff options
| author | Karl Williamson <public@khwilliamson.com> | 2011-02-12 21:19:02 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2011-02-12 22:02:24 -0700 |
| commit | 5024bc2d2154013d8f0b64ff1fd3ddd3aeaae6a6 (patch) | |
| tree | 9a041592b437e59dca4de84f78572e556064db7f /t/lib/warnings/regcomp | |
| parent | 216bfc0a080a7190b7235110e12114b87f6e7b56 (diff) | |
| download | perl-5024bc2d2154013d8f0b64ff1fd3ddd3aeaae6a6.tar.gz | |
regex: Deprecate \b{ and \B{
This allows future use by Perl of these
Diffstat (limited to 't/lib/warnings/regcomp')
| -rw-r--r-- | t/lib/warnings/regcomp | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/t/lib/warnings/regcomp b/t/lib/warnings/regcomp index b318784389..3481dff7ad 100644 --- a/t/lib/warnings/regcomp +++ b/t/lib/warnings/regcomp @@ -57,14 +57,20 @@ Unrecognized escape \m passed through in regex; marked by <-- HERE in m/a\m <-- use warnings 'regexp'; "foo" =~ /\q/; "foo" =~ /\q{/; +"foo" =~ /a\b{cde/; +"foo" =~ /a\B{cde/; "bar" =~ /\_/; no warnings 'regexp'; "foo" =~ /\q/; "foo" =~ /\q{/; +"foo" =~ /a\b{cde/; +"foo" =~ /a\B{cde/; "bar" =~ /\_/; EXPECT Unrecognized escape \q passed through in regex; marked by <-- HERE in m/\q <-- HERE / at - line 4. Unrecognized escape \q{ passed through in regex; marked by <-- HERE in m/\q{ <-- HERE / at - line 5. +"\b{" is deprecated; use "\b\{" instead in regex; marked by <-- HERE in m/a\ <-- HERE b{cde/ at - line 6. +"\B{" is deprecated; use "\B\{" instead in regex; marked by <-- HERE in m/a\ <-- HERE B{cde/ at - line 7. ######## # regcomp.c [S_regpposixcc S_checkposixcc] # |