diff options
| author | Pali <pali@cpan.org> | 2017-07-01 12:34:25 +0200 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2019-02-25 10:56:06 +1100 |
| commit | 7d0a46b7159e5ac307bcf356572da3501eaee898 (patch) | |
| tree | 7c1eae56ae9ce3f2ccfaa338788142a3c0ef2f60 /ext/PerlIO-encoding | |
| parent | 2debb4dc583455971b2de1dca9b437f10c266f9c (diff) | |
| download | perl-7d0a46b7159e5ac307bcf356572da3501eaee898.tar.gz | |
PerlIO::encoding: Use Encode::ONLY_PRAGMA_WARNINGS in fallback by default
This would enable to respect utf8 warnings enabled/disabled by pramga
warnings when processing filehandle with :encoding layer.
Diffstat (limited to 'ext/PerlIO-encoding')
| -rw-r--r-- | ext/PerlIO-encoding/encoding.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/PerlIO-encoding/encoding.pm b/ext/PerlIO-encoding/encoding.pm index 3d740b181a..a9f360d3ce 100644 --- a/ext/PerlIO-encoding/encoding.pm +++ b/ext/PerlIO-encoding/encoding.pm @@ -14,7 +14,7 @@ require XSLoader; XSLoader::load(); our $fallback = - Encode::PERLQQ()|Encode::WARN_ON_ERR()|Encode::STOP_AT_PARTIAL(); + Encode::PERLQQ()|Encode::WARN_ON_ERR()|Encode::ONLY_PRAGMA_WARNINGS()|Encode::STOP_AT_PARTIAL(); 1; __END__ |