Deprecate wide chars in logical string ops

See thread starting at
http://nntp.perl.org/group/perl.perl5.porters/227698

Ricardo Signes provided the perldelta and perldiag text.

1 files changed, 2 insertions, 0 deletions

diff --git a/pp.c b/pp.c
index e6eb799739..7071478521 100644
--- a/pp.c
+++ b/pp.c
@@ -2642,6 +2642,8 @@ S_scomplement(pTHX_ SV *targ, SV *sv)
 	      U8 *result;
 	      U8 *p;
 
+              Perl_ck_warner_d(aTHX_ packWARN(WARN_DEPRECATED),
+                        deprecated_above_ff_msg, PL_op_desc[PL_op->op_type]);
 	      Newx(result, targlen + 1, U8);
 	      p = result;
 	      while (tmps < send) {