diff options
author | Abigail <abigail@abigail.be> | 2017-01-14 21:44:56 +0100 |
---|---|---|
committer | Abigail <abigail@abigail.be> | 2017-01-16 19:18:16 +0100 |
commit | 1972ac5c2455a780ab04acb68be3dcde091c19ce (patch) | |
tree | 3c80da5109f64c6586848f11a308475bf16d09ff /pp_sys.c | |
parent | 9840d1d66ee1648f6d7fb1554101450158cfee16 (diff) | |
download | perl-1972ac5c2455a780ab04acb68be3dcde091c19ce.tar.gz |
Reading/writing bytes from :utf8 handles will be fatal in 5.30
Diffstat (limited to 'pp_sys.c')
-rw-r--r-- | pp_sys.c | 6 |
1 files changed, 4 insertions, 2 deletions
@@ -1719,7 +1719,8 @@ PP(pp_sysread) if ((fp_utf8 = PerlIO_isutf8(IoIFP(io))) && !IN_BYTES) { if (PL_op->op_type == OP_SYSREAD || PL_op->op_type == OP_RECV) { Perl_ck_warner_d(aTHX_ packWARN(WARN_DEPRECATED), - "%s() is deprecated on :utf8 handles", + "%s() is deprecated on :utf8 handles. " + "This will be a fatal error in Perl 5.30", OP_DESC(PL_op)); } buffer = SvPVutf8_force(bufsv, blen); @@ -1982,7 +1983,8 @@ PP(pp_syswrite) if (PerlIO_isutf8(IoIFP(io))) { Perl_ck_warner_d(aTHX_ packWARN(WARN_DEPRECATED), - "%s() is deprecated on :utf8 handles", + "%s() is deprecated on :utf8 handles. " + "This will be a fatal error in Perl 5.30", OP_DESC(PL_op)); if (!SvUTF8(bufsv)) { /* We don't modify the original scalar. */ |