diff options
author | David Mitchell <davem@iabyn.com> | 2014-07-03 16:08:56 +0100 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2014-07-03 16:16:07 +0100 |
commit | 0f2d63091dedddc38daad0029e097295a76b2e7f (patch) | |
tree | 82cf018dfc265cbf4cd838ac98ee8ed70c4dbe3b /dist/Filter-Simple | |
parent | 5b597d1b365fbf7a687e61304bddd619bc3a53dd (diff) | |
download | perl-0f2d63091dedddc38daad0029e097295a76b2e7f.tar.gz |
Deprecate /\C/
This character class matches a single byte within a multi-byte utf8 char,
and so breaks encapsulation. It is buggy, and can corrupt utf8 strings.
This deprecation was agreed in the thread starting
http://nntp.perl.org/group/perl.perl5.porters/210621
Diffstat (limited to 'dist/Filter-Simple')
-rw-r--r-- | dist/Filter-Simple/lib/Filter/Simple.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/dist/Filter-Simple/lib/Filter/Simple.pm b/dist/Filter-Simple/lib/Filter/Simple.pm index 4b15e556e0..069482a702 100644 --- a/dist/Filter-Simple/lib/Filter/Simple.pm +++ b/dist/Filter-Simple/lib/Filter/Simple.pm @@ -4,7 +4,7 @@ use Text::Balanced ':ALL'; use vars qw{ $VERSION @EXPORT }; -$VERSION = '0.91'; +$VERSION = '0.92'; use Filter::Util::Call; use Carp; @@ -119,6 +119,7 @@ sub gen_std_filter_for { } if ($type =~ /^code/) { my $count = 0; + no warnings 'deprecated'; local $placeholder = qr/\Q$;\E(\C{4})\Q$;\E/; my $extractor = qr/\Q$;\E(\C{4})\Q$;\E/; $_ = join "", |