diff options
author | Karl Williamson <public@khwilliamson.com> | 2013-01-22 13:34:54 -0700 |
---|---|---|
committer | Karl Williamson <public@khwilliamson.com> | 2013-01-23 19:35:34 -0700 |
commit | ff56e4f1f932959354fde1f616e4834c066c0181 (patch) | |
tree | c7234a973cceaa8eabb7edc74507ea43f728df84 /t/re | |
parent | 0d6106aa7a7bf59a333387bc6170353dcd78d3f3 (diff) | |
download | perl-ff56e4f1f932959354fde1f616e4834c066c0181.tar.gz |
Add deprecation warning for literal PATWS under /x
This is explained in the perldelta changes in this commit. We plan to
migrate to Unicode's definition of white-space to ignore under /x. That
means we should raise a deprecation warning in the meantime if anyone
currently uses these characters in such a way as to have the meaning
changed when the migration is completed.
Diffstat (limited to 't/re')
-rw-r--r-- | t/re/reg_mesg.t | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/t/re/reg_mesg.t b/t/re/reg_mesg.t index 1f7d8bc847..b514320217 100644 --- a/t/re/reg_mesg.t +++ b/t/re/reg_mesg.t @@ -256,6 +256,7 @@ my @experimental_regex_sets = ( my @deprecated = ( '/a\b{cde/' => '"\b{" is deprecated; use "\b\{" instead {#} m/a\{#}b{cde/', '/a\B{cde/' => '"\B{" is deprecated; use "\B\{" instead {#} m/a\{#}B{cde/', + 'use utf8; /(?x)\
\
/' => 'Escape literal pattern white space under /x {#} m/(?x)\
{#}\
/', ); while (my ($regex, $expect) = splice @death, 0, 2) { |