diff options
author | Norbert Preining <norbert@preining.info> | 2024-03-15 03:06:35 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2024-03-15 03:06:35 +0000 |
commit | 12679ab7d3c2a210f4123163671b532b8b55d5f9 (patch) | |
tree | 0060d13467186ad977f4e73488ee20dd6c0017ab /systems/texlive/tlnet/tlpkg/tlperl/lib/encoding/warnings.pm | |
parent | 62170822e034fdd3f81de7274835d0d3b0467100 (diff) |
CTAN sync 202403150306
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/encoding/warnings.pm')
-rw-r--r-- | systems/texlive/tlnet/tlpkg/tlperl/lib/encoding/warnings.pm | 30 |
1 files changed, 15 insertions, 15 deletions
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/encoding/warnings.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/encoding/warnings.pm index d75277e210..e09836d845 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/encoding/warnings.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/encoding/warnings.pm @@ -1,5 +1,5 @@ package encoding::warnings; -$encoding::warnings::VERSION = '0.13'; +$encoding::warnings::VERSION = '0.14'; use strict; use 5.007; @@ -32,7 +32,7 @@ thereafter. use encoding::warnings; # or 'FATAL' to raise fatal exceptions utf8::encode($a = chr(20000)); # a byte-string (raw bytes) - $b = chr(20000); # a unicode-string (wide characters) + $b = chr(20000); # a unicode-string (wide characters) # "Bytes implicitly upgraded into wide characters as iso-8859-1" $c = $a . $b; @@ -133,9 +133,9 @@ some people: use encoding 'big5'; my $byte_string = pack("C*", 0xA4, 0x40); - print length $a; # 2 here. - $a .= ""; # concatenating with a unicode string... - print length $a; # 1 here! + print length $a; # 2 here. + $a .= ""; # concatenating with a unicode string... + print length $a; # 1 here! In other words, do not C<use encoding> unless you are certain that the program will not deal with any raw, 8-bit binary data at all. @@ -162,11 +162,11 @@ sub FATAL () { 2 } sub import { if ($] >= 5.025003) { - require Carp; - Carp::cluck( - "encoding::warnings is not supported on Perl 5.26.0 and later" - ); - return; + 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. @@ -185,11 +185,11 @@ sub import { # Install a warning handler for decode() my $decoder = bless( - [ - $ascii, - $latin1, - (($fatal eq 'FATAL') ? 'Carp::croak' : 'Carp::carp'), - ], $class, + [ + $ascii, + $latin1, + (($fatal eq 'FATAL') ? 'Carp::croak' : 'Carp::carp'), + ], $class, ); no warnings 'deprecated'; |