Skip to content

Commit

Permalink
cpan/Encode - Update to version 3.21
Browse files Browse the repository at this point in the history
$Revision: 3.21 $ $Date: 2024/02/25 22:21:59 $
! t/CJKT.t
  address RT#151983: parallel test race condition
  https://rt.cpan.org/Ticket/Display.html?id=151983
! Encode.pm
  pulled: remove POD markup from verbatim sections
  dankogai/p5-encode#178
! lib/Encode/Supported.pod
  pulled: fix module name in POD
  dankogai/p5-encode#177
  • Loading branch information
dankogai authored and jkeenan committed Feb 26, 2024
1 parent f4c4028 commit ba0cc60
Show file tree
Hide file tree
Showing 15 changed files with 25 additions and 24 deletions.
3 changes: 2 additions & 1 deletion Porting/Maintainers.pl
Original file line number Diff line number Diff line change
Expand Up @@ -399,7 +399,8 @@ package Maintainers;
},

'Encode' => {
'DISTRIBUTION' => 'DANKOGAI/Encode-3.20.tar.gz',
'DISTRIBUTION' => 'DANKOGAI/Encode-3.21.tar.gz',
'SYNCINFO' => 'jkeenan on Sun Feb 25 19:56:46 2024',
'SYNCINFO' => 'jkeenan on Fri Nov 10 15:12:07 2023',
'FILES' => q[cpan/Encode],
'EXCLUDED' => [
Expand Down
20 changes: 10 additions & 10 deletions cpan/Encode/Encode.pm
Original file line number Diff line number Diff line change
@@ -1,13 +1,13 @@
#
# $Id: Encode.pm,v 3.20 2023/11/10 01:09:56 dankogai Exp $
# $Id: Encode.pm,v 3.21 2024/02/25 22:17:32 dankogai Exp $
#
package Encode;
use strict;
use warnings;
use constant DEBUG => !!$ENV{PERL_ENCODE_DEBUG};
our $VERSION;
BEGIN {
$VERSION = sprintf "%d.%02d", q$Revision: 3.20 $ =~ /(\d+)/g;
$VERSION = sprintf "%d.%02d", q$Revision: 3.21 $ =~ /(\d+)/g;
require XSLoader;
XSLoader::load( __PACKAGE__, $VERSION );
}
Expand Down Expand Up @@ -431,10 +431,10 @@ same as C<find_encoding()> but C<mime_name()> of returned object must
match to I<MIME_ENCODING>. So as opposite of C<find_encoding()>
canonical names and aliases are not used when searching for object.
find_mime_encoding("utf8"); # returns undef because "utf8" is not valid I<MIME_ENCODING>
find_mime_encoding("utf8"); # returns undef because "utf8" is not a valid MIME_ENCODING
find_mime_encoding("utf-8"); # returns encode object "utf-8-strict"
find_mime_encoding("UTF-8"); # same as "utf-8" because I<MIME_ENCODING> is case insensitive
find_mime_encoding("utf-8-strict"); returns undef because "utf-8-strict" is not valid I<MIME_ENCODING>
find_mime_encoding("UTF-8"); # same as "utf-8" because MIME_ENCODING is case insensitive
find_mime_encoding("utf-8-strict"); returns undef because "utf-8-strict" is not a valid MIME_ENCODING
=head3 from_to
Expand Down Expand Up @@ -645,7 +645,7 @@ L<Encode::Unicode> ignores I<CHECK> and it always croaks on error.
=head3 FB_DEFAULT
I<CHECK> = Encode::FB_DEFAULT ( == 0)
CHECK = Encode::FB_DEFAULT ( == 0)
If I<CHECK> is 0, encoding and decoding replace any malformed character
with a I<substitution character>. When you encode, I<SUBCHAR> is used.
Expand All @@ -655,15 +655,15 @@ warning category C<"utf8"> is given.
=head3 FB_CROAK
I<CHECK> = Encode::FB_CROAK ( == 1)
CHECK = Encode::FB_CROAK ( == 1)
If I<CHECK> is 1, methods immediately die with an error
message. Therefore, when I<CHECK> is 1, you should trap
exceptions with C<eval{}>, unless you really want to let it C<die>.
=head3 FB_QUIET
I<CHECK> = Encode::FB_QUIET
CHECK = Encode::FB_QUIET
If I<CHECK> is set to C<Encode::FB_QUIET>, encoding and decoding immediately
return the portion of the data that has been processed so far when an
Expand All @@ -682,7 +682,7 @@ code to do exactly that:
=head3 FB_WARN
I<CHECK> = Encode::FB_WARN
CHECK = Encode::FB_WARN
This is the same as C<FB_QUIET> above, except that instead of being silent
on errors, it issues a warning. This is handy for when you are debugging.
Expand Down Expand Up @@ -780,7 +780,7 @@ See L<Encode::Encoding> for details.
=head1 The UTF8 flag
Before the introduction of Unicode support in Perl, The C<eq> operator
Before the introduction of Unicode support in Perl, the C<eq> operator
just compared the strings represented by two scalars. Beginning with
Perl 5.8, C<eq> compares two strings with simultaneous consideration of
I<the UTF8 flag>. To explain why we made it so, I quote from page 402 of
Expand Down
2 changes: 1 addition & 1 deletion cpan/Encode/bin/encguess
Original file line number Diff line number Diff line change
Expand Up @@ -61,7 +61,7 @@ encguess - guess character encodings of files
=head1 VERSION
$Id: encguess,v 0.4 2023/11/10 01:10:50 dankogai Exp dankogai $
$Id: encguess,v 0.4 2023/11/10 01:10:50 dankogai Exp $
=head1 SYNOPSIS
Expand Down
2 changes: 1 addition & 1 deletion cpan/Encode/lib/Encode/Supported.pod
Original file line number Diff line number Diff line change
Expand Up @@ -315,7 +315,7 @@ See L<perlebcdic> for details.
posix-bc
----------------------------------------------------------------

=item Encode::Symbols
=item Encode::Symbol

For symbols and dingbats.

Expand Down
2 changes: 1 addition & 1 deletion cpan/Encode/t/CJKT.t
Original file line number Diff line number Diff line change
Expand Up @@ -46,7 +46,7 @@ for my $charset (sort keys %Charset){
my $src_enc = File::Spec->catfile($dir,"$charset.enc");
my $src_utf = File::Spec->catfile($dir,"$charset.utf");
my $dst_enc = File::Spec->catfile($dir,"$$.enc");
my $dst_utf = File::Spec->catfile($dir,"$$.utf");
my $dst_utf = File::Spec->catfile($dir,"$$.utf8");

open $src, "<$src_enc" or die "$src_enc : $!";

Expand Down
2 changes: 1 addition & 1 deletion cpan/Encode/t/Encoder.t
Original file line number Diff line number Diff line change
@@ -1,5 +1,5 @@
#
# $Id: Encoder.t,v 2.2 2023/11/10 01:10:50 dankogai Exp dankogai $
# $Id: Encoder.t,v 2.2 2023/11/10 01:10:50 dankogai Exp $
#

BEGIN {
Expand Down
2 changes: 1 addition & 1 deletion cpan/Encode/t/Unicode.t
Original file line number Diff line number Diff line change
@@ -1,5 +1,5 @@
#
# $Id: Unicode.t,v 2.5 2023/11/10 01:10:50 dankogai Exp dankogai $
# $Id: Unicode.t,v 2.5 2023/11/10 01:10:50 dankogai Exp $
#
# This script is written entirely in ASCII, even though quoted literals
# do include non-BMP unicode characters -- Are you happy, jhi?
Expand Down
2 changes: 1 addition & 1 deletion cpan/Encode/t/enc_data.t
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
# $Id: enc_data.t,v 2.7 2023/11/10 01:10:50 dankogai Exp dankogai $
# $Id: enc_data.t,v 2.7 2023/11/10 01:10:50 dankogai Exp $

BEGIN {
require Config; Config->import();
Expand Down
2 changes: 1 addition & 1 deletion cpan/Encode/t/enc_eucjp.t
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
# $Id: enc_eucjp.t,v 2.7 2023/11/10 01:10:50 dankogai Exp dankogai $
# $Id: enc_eucjp.t,v 2.7 2023/11/10 01:10:50 dankogai Exp $
# This is the twin of enc_utf8.t .

BEGIN {
Expand Down
2 changes: 1 addition & 1 deletion cpan/Encode/t/enc_module.t
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
# $Id: enc_module.t,v 2.7 2023/11/10 01:10:50 dankogai Exp dankogai $
# $Id: enc_module.t,v 2.7 2023/11/10 01:10:50 dankogai Exp $
# This file is in euc-jp
BEGIN {
require Config; Config->import();
Expand Down
2 changes: 1 addition & 1 deletion cpan/Encode/t/enc_utf8.t
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
# $Id: enc_utf8.t,v 2.7 2023/11/10 01:10:50 dankogai Exp dankogai $
# $Id: enc_utf8.t,v 2.7 2023/11/10 01:10:50 dankogai Exp $
# This is the twin of enc_eucjp.t .

BEGIN {
Expand Down
2 changes: 1 addition & 1 deletion cpan/Encode/t/jperl.t
Original file line number Diff line number Diff line change
@@ -1,5 +1,5 @@
#
# $Id: jperl.t,v 2.7 2023/11/10 01:10:50 dankogai Exp dankogai $
# $Id: jperl.t,v 2.7 2023/11/10 01:10:50 dankogai Exp $
#
# This script is written in euc-jp

Expand Down
2 changes: 1 addition & 1 deletion cpan/Encode/t/mime-header.t
Original file line number Diff line number Diff line change
@@ -1,5 +1,5 @@
#
# $Id: mime-header.t,v 2.17 2023/11/10 01:10:50 dankogai Exp dankogai $
# $Id: mime-header.t,v 2.17 2023/11/10 01:10:50 dankogai Exp $
# This script is written in utf8
#
BEGIN {
Expand Down
2 changes: 1 addition & 1 deletion cpan/Encode/t/mime-name.t
Original file line number Diff line number Diff line change
@@ -1,5 +1,5 @@
#
# $Id: mime-name.t,v 1.4 2023/11/10 01:10:50 dankogai Exp dankogai $
# $Id: mime-name.t,v 1.4 2023/11/10 01:10:50 dankogai Exp $
# This script is written in utf8
#
BEGIN {
Expand Down
2 changes: 1 addition & 1 deletion cpan/Encode/t/rt.pl
Original file line number Diff line number Diff line change
@@ -1,6 +1,6 @@
#!/usr/local/bin/perl
#
# $Id: rt.pl,v 2.2 2023/11/10 01:10:50 dankogai Exp dankogai $
# $Id: rt.pl,v 2.2 2023/11/10 01:10:50 dankogai Exp $
#

BEGIN {
Expand Down

0 comments on commit ba0cc60

Please sign in to comment.