Deprecate wide chars in logical string ops

[perl5.git] / pp.c

diff --git a/pp.c b/pp.c
index e6eb799..7071478 100644 (file)
--- a/pp.c
+++ b/pp.c
@@ -2642,6 +2642,8 @@ S_scomplement(pTHX_ SV *targ, SV *sv)
              U8 *result;
              U8 *p;
 
              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) {
              Newx(result, targlen + 1, U8);
              p = result;
              while (tmps < send) {