In perl.git, the branch blead has been updated <https://perl5.git.perl.org/perl.git/commitdiff/3e1f6bc5a365acf1993dec82addd7b6e6df4cfe2?hp=2debb4dc583455971b2de1dca9b437f10c266f9c>
- Log ----------------------------------------------------------------- commit 3e1f6bc5a365acf1993dec82addd7b6e6df4cfe2 Author: Tony Cook <[email protected]> Date: Mon Feb 25 11:40:14 2019 +1100 bump $PerlIO::encoding::VERSION commit 4f60c5ccb12b01fbbc12c26181ac52d84b72791b Author: Tony Cook <[email protected]> Date: Mon Feb 25 11:00:35 2019 +1100 (perl #131683) enable warnings for the block that tests for warnings commit 7d0a46b7159e5ac307bcf356572da3501eaee898 Author: Pali <[email protected]> Date: Sat Jul 1 12:34:25 2017 +0200 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. ----------------------------------------------------------------------- Summary of changes: ext/PerlIO-encoding/encoding.pm | 4 ++-- ext/PerlIO-encoding/t/fallback.t | 1 + 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/ext/PerlIO-encoding/encoding.pm b/ext/PerlIO-encoding/encoding.pm index 3d740b181a..35ad712d0a 100644 --- a/ext/PerlIO-encoding/encoding.pm +++ b/ext/PerlIO-encoding/encoding.pm @@ -1,7 +1,7 @@ package PerlIO::encoding; use strict; -our $VERSION = '0.26'; +our $VERSION = '0.27'; our $DEBUG = 0; $DEBUG and warn __PACKAGE__, " called by ", join(", ", caller), "\n"; @@ -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__ diff --git a/ext/PerlIO-encoding/t/fallback.t b/ext/PerlIO-encoding/t/fallback.t index 3abdfd3f37..686b164236 100644 --- a/ext/PerlIO-encoding/t/fallback.t +++ b/ext/PerlIO-encoding/t/fallback.t @@ -23,6 +23,7 @@ use Test::More tests => 10; my $file = "fallback$$.txt"; { + use warnings; my $message = ''; local $SIG{__WARN__} = sub { $message = $_[0] }; $PerlIO::encoding::fallback = Encode::PERLQQ; -- Perl5 Master Repository
