diff options
author | Karl Berry <karl@freefriends.org> | 2018-03-08 00:16:42 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2018-03-08 00:16:42 +0000 |
commit | 34a8597760ab5740abd49b6d8be10e1876f5ce98 (patch) | |
tree | 099a794912a28b3ebbc857961643ba29b28e674a /Master/tlpkg/tlperl/lib/encoding | |
parent | 2ca3610031316a7312d046d3ae4c783452831216 (diff) |
(tl)perl 5.26.1 from siep
git-svn-id: svn://tug.org/texlive/trunk@46882 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/encoding')
-rw-r--r-- | Master/tlpkg/tlperl/lib/encoding/warnings.pm | 30 |
1 files changed, 26 insertions, 4 deletions
diff --git a/Master/tlpkg/tlperl/lib/encoding/warnings.pm b/Master/tlpkg/tlperl/lib/encoding/warnings.pm index d5c41841309..d75277e2109 100644 --- a/Master/tlpkg/tlperl/lib/encoding/warnings.pm +++ b/Master/tlpkg/tlperl/lib/encoding/warnings.pm @@ -1,5 +1,5 @@ package encoding::warnings; -$encoding::warnings::VERSION = '0.12'; +$encoding::warnings::VERSION = '0.13'; use strict; use 5.007; @@ -10,8 +10,22 @@ encoding::warnings - Warn on implicit encoding conversions =head1 VERSION -This document describes version 0.11 of encoding::warnings, released -June 5, 2007. +This document describes version 0.13 of encoding::warnings, released +June 20, 2016. + +=head1 NOTICE + +As of Perl 5.26.0, this module has no effect. The internal Perl feature +that was used to implement this module has been removed. In recent years, +much work has been done on the Perl core to eliminate discrepancies in the +treatment of upgraded versus downgraded strings. In addition, the +L<encoding> pragma, which caused many of the problems, is no longer +supported. Thus, the warnings this module produced are no longer +necessary. + +Hence, if you load this module on Perl 5.26.0, you will get one warning +that the module is no longer supported; and the module will do nothing +thereafter. =head1 SYNOPSIS @@ -146,8 +160,16 @@ sub ASCII () { 0 } sub LATIN1 () { 1 } sub FATAL () { 2 } -# Install a ${^ENCODING} handler if no other one are already in place. sub import { + if ($] >= 5.025003) { + require Carp; + Carp::cluck( + "encoding::warnings is not supported on Perl 5.26.0 and later" + ); + return; + } + + # Install a ${^ENCODING} handler if no other one are already in place. my $class = shift; my $fatal = shift || ''; |