summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/encoding
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2018-03-08 00:16:42 +0000
committerKarl Berry <karl@freefriends.org>2018-03-08 00:16:42 +0000
commit34a8597760ab5740abd49b6d8be10e1876f5ce98 (patch)
tree099a794912a28b3ebbc857961643ba29b28e674a /Master/tlpkg/tlperl/lib/encoding
parent2ca3610031316a7312d046d3ae4c783452831216 (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.pm30
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 || '';