开源软件构建与测试

_service:tar_scm:perl-Encode.spec Changed

_service:tar_scm:Encode-3.16.tar.gz/Changes -> _service:tar_scm:Encode-3.19.tar.gz/Changes Changed

@@ -1,11 +1,43 @@
 # Revision history for Perl extension Encode.
 #
-# $Id: Changes,v 3.16 2021/10/13 08:29:13 dankogai Exp dankogai $
+# $Id: Changes,v 3.19 2022/08/04 04:43:23 dankogai Exp dankogai $
 #
-$Revision: 3.16 $ $Date: 2021/10/13 08:29:13 $
+$Revision: 3.19 $ $Date: 2022/08/04 04:43:23 $
+! lib/Encode/Alias.pm /t/Aliases.t
+  Add ISO-8859-8-I as an alias of ISO-8859-8
+  <8ac3918e-5d77-4815-f1e6-6577397068c6@iki.fi>
+  https://en.wikipedia.org/wiki/ISO-8859-8-I
+
+3.18 2022/06/25 02:05:01
+! lib/Encode/MIME/Header.pm t/mime-header.t
+  Pulled: Encode::MIME::Header: Fix base64 word decoding
+  https://github.com/dankogai/p5-encode/pull/169
+! t/Unicode_trailing_nul.t t/truncated_utf8.t
+  t/utf32warnings.t t/xml.t
+  Skip so Github Actions are happy
+  https://github.com/dankogai/p5-encode/blob/main/.github/workflows/versions.yml
+
+3.17 2022/04/07 03:06:40
+! bin/enc2xs t/enc_data.t t/enc_module.t t/encoding.t t/jperl.t
+  Pulled: Fix Issue #144, spurious warnings from -Wc++-compate,
+   and a few related nits
+  https://github.com/dankogai/p5-encode/pull/168
+! MANIFEST
+  add t/utf32warnings.t which was missing
+! t/taint.t
+  Pulled: Skip taint tests if your perl was built without taint support
+  https://github.com/dankogai/p5-encode/pull/167
+! Unicode/Unicode.pm
+  Pulled: fix link to Unicode standard
+  https://github.com/dankogai/p5-encode/pull/165
+! t/Unicode_trailing_nul.t
+  Pulled: Use note() instead of diag()
+  https://github.com/dankogai/p5-encode/pull/164
+
+3.16 2021/10/13 08:29:13
 ! Makefile.PL
   Pulled: Only add -Werror=declaration-after-statement for 5.035004 and earlier
-  https://github.com/dankogai/p5-encode/pull/162/filehttps://github.com/dankogai/p5-encode/pull/162
+  https://github.com/dankogai/p5-encode/pull/162
 
 3.15 2021/10/08 15:29:23
 ! Encode.xs

_service:tar_scm:Encode-3.16.tar.gz/Encode.pm -> _service:tar_scm:Encode-3.19.tar.gz/Encode.pm Changed

_service:tar_scm:Encode-3.16.tar.gz/MANIFEST -> _service:tar_scm:Encode-3.19.tar.gz/MANIFEST Changed

_service:tar_scm:Encode-3.16.tar.gz/META.json -> _service:tar_scm:Encode-3.19.tar.gz/META.json Changed

_service:tar_scm:Encode-3.16.tar.gz/META.yml -> _service:tar_scm:Encode-3.19.tar.gz/META.yml Changed

_service:tar_scm:Encode-3.16.tar.gz/Makefile.PL -> _service:tar_scm:Encode-3.19.tar.gz/Makefile.PL Changed

_service:tar_scm:Encode-3.16.tar.gz/Unicode/Unicode.pm -> _service:tar_scm:Encode-3.19.tar.gz/Unicode/Unicode.pm Changed

@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-our $VERSION = do { my @r = ( q$Revision: 2.19 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+our $VERSION = do { my @r = ( q$Revision: 2.20 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
 
 use XSLoader;
 XSLoader::load( __PACKAGE__, $VERSION );
@@ -170,7 +170,7 @@
 
 When BE or LE is omitted during decode(), it checks if BOM is at the
 beginning of the string; if one is found, the endianness is set to
-what the BOM says.  
+what the BOM says.
 
 =item *
 
@@ -258,15 +258,15 @@
 
 =head1 SEE ALSO
 
-L<Encode>, L<Encode::Unicode::UTF7>, L<http://www.unicode.org/glossary/>,
-L<http://www.unicode.org/faq/utf_bom.html>,
+L<Encode>, L<Encode::Unicode::UTF7>, L<https://www.unicode.org/glossary/>,
+L<https://www.unicode.org/faq/utf_bom.html>,
 
 RFC 2781 L<http://www.ietf.org/rfc/rfc2781.txt>,
 
-The whole Unicode standard L<http://www.unicode.org/unicode/uni2book/u2.html>
+The whole Unicode standard L<https://www.unicode.org/standard/standard.html>
 
-Ch. 15, pp. 403 of C<Programming Perl (3rd Edition)>
-by Larry Wall, Tom Christiansen, Jon Orwant;
-O'Reilly & Associates; ISBN 0-596-00027-8
+Ch. 6 pp. 275 of C<Programming Perl (3rd Edition)>
+by Tom Christiansen, brian d foy & Larry Wall;
+O'Reilly & Associates; ISBN 978-0-596-00492-7
 
 =cut

_service:tar_scm:Encode-3.16.tar.gz/bin/enc2xs -> _service:tar_scm:Encode-3.19.tar.gz/bin/enc2xs Changed

_service:tar_scm:Encode-3.16.tar.gz/lib/Encode/Alias.pm -> _service:tar_scm:Encode-3.19.tar.gz/lib/Encode/Alias.pm Changed

_service:tar_scm:Encode-3.16.tar.gz/lib/Encode/MIME/Header.pm -> _service:tar_scm:Encode-3.19.tar.gz/lib/Encode/MIME/Header.pm Changed

@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-our $VERSION = do { my @r = ( q$Revision: 2.28 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+our $VERSION = do { my @r = ( q$Revision: 2.29 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
 
 use Carp ();
 use Encode ();
@@ -55,7 +55,7 @@
 # in strict mode check also for valid base64 characters and also for valid quoted printable codes
 my $re_encoding_strict_b = qr/Bb/;
 my $re_encoding_strict_q = qr/Qq/;
-my $re_encoded_text_strict_b = qr/0-9A-Za-z\+\/*={0,2}/;
+my $re_encoded_text_strict_b = qr/(?:0-9A-Za-z\+\/{4})*(?:0-9A-Za-z\+\/{2}==|0-9A-Za-z\+\/{3}=|)/;
 my $re_encoded_text_strict_q = qr/(?:\x21-\x3C\x3E\x40-\x7E|=0-9A-Fa-f{2})*/; # NOTE: first part are printable US-ASCII except ?, =, SPACE and TAB
 my $re_encoded_word_strict = qr/=\?$re_charset(?:\*$re_language)?\?(?:$re_encoding_strict_b\?$re_encoded_text_strict_b|$re_encoding_strict_q\?$re_encoded_text_strict_q)\?=/;
 my $re_capture_encoded_word_strict = qr/=\?($re_charset)((?:\*$re_language)?)\?($re_encoding_strict_b\?$re_encoded_text_strict_b|$re_encoding_strict_q\?$re_encoded_text_strict_q)\?=/;
@@ -94,6 +94,10 @@
 
         $stop = 1 unless length($line) or length($sep);
 
+        # in non strict mode append missing '=' padding characters for b words
+        # fixes below concatenation of consecutive encoded mime words
+        1 while not $STRICT_DECODE and $line =~ s/(=\?$re_charset(?:\*$re_language)?\?Bb\?)((?:^\?{4})*^\?{1,3})(\?=)/$1.$2.('='x(4-length($2)%4)).$3/se;
+
         # NOTE: this code partially could break $chk support
         # in non strict mode concat consecutive encoded mime words with same charset, language and encoding
         # fixes breaking inside multi-byte characters

_service:tar_scm:Encode-3.16.tar.gz/t/Aliases.t -> _service:tar_scm:Encode-3.19.tar.gz/t/Aliases.t Changed

_service:tar_scm:Encode-3.16.tar.gz/t/Unicode_trailing_nul.t -> _service:tar_scm:Encode-3.19.tar.gz/t/Unicode_trailing_nul.t Changed

_service:tar_scm:Encode-3.16.tar.gz/t/enc_data.t -> _service:tar_scm:Encode-3.19.tar.gz/t/enc_data.t Changed

_service:tar_scm:Encode-3.16.tar.gz/t/enc_module.t -> _service:tar_scm:Encode-3.19.tar.gz/t/enc_module.t Changed

_service:tar_scm:Encode-3.16.tar.gz/t/encoding.t -> _service:tar_scm:Encode-3.19.tar.gz/t/encoding.t Changed

_service:tar_scm:Encode-3.16.tar.gz/t/jperl.t -> _service:tar_scm:Encode-3.19.tar.gz/t/jperl.t Changed

_service:tar_scm:Encode-3.16.tar.gz/t/mime-header.t -> _service:tar_scm:Encode-3.19.tar.gz/t/mime-header.t Changed

@@ -1,5 +1,5 @@
 #
-# $Id: mime-header.t,v 2.15 2017/07/18 07:15:29 dankogai Exp $
+# $Id: mime-header.t,v 2.16 2022/06/25 01:58:57 dankogai Exp $
 # This script is written in utf8
 #
 BEGIN {
@@ -24,7 +24,7 @@
 use utf8;
 use charnames ":full";
 
-use Test::More tests => 266;
+use Test::More tests => 274;
 
 BEGIN {
     use_ok("Encode::MIME::Header");
@@ -138,6 +138,11 @@
     "=?utf-8-strict?Q?=C3=A1=f9=80=80=80=80?=" => "á�",
     # allow non-ASCII characters in q word
     "=?UTF-8?Q?\x{C3}\x{A1}?=" => "á",
+    # allow missing padding characters '=' in b word
+    "=?UTF-8?B?JQ?=" => "%",
+    "=?UTF-8?B?JQ?= =?UTF-8?B?JQ?=" => "%%",
+    "=?UTF-8?B?YWI?=" => "ab",
+    "=?UTF-8?B?YWI?= =?UTF-8?B?YWI?=" => "abab",
 );
 
 my @decode_strict_tests = (
@@ -159,6 +164,11 @@
     "=?utf-8-strict?Q?=C3=A1?=" => "=?utf-8-strict?Q?=C3=A1?=",
     # do not allow non-ASCII characters in q word
     "=?UTF-8?Q?\x{C3}\x{A1}?=" => "=?UTF-8?Q?\x{C3}\x{A1}?=",
+    # do not allow missing padding characters '=' in b word
+    "=?UTF-8?B?JQ?=" => "=?UTF-8?B?JQ?=",
+    "=?UTF-8?B?JQ?= =?UTF-8?B?JQ?=" => "=?UTF-8?B?JQ?= =?UTF-8?B?JQ?=",
+    "=?UTF-8?B?YWI?=" => "=?UTF-8?B?YWI?=",
+    "=?UTF-8?B?YWI?= =?UTF-8?B?YWI?=" => "=?UTF-8?B?YWI?= =?UTF-8?B?YWI?=",
 );
 
 my @encode_tests = (

_service:tar_scm:Encode-3.16.tar.gz/t/taint.t -> _service:tar_scm:Encode-3.19.tar.gz/t/taint.t Changed

_service:tar_scm:Encode-3.16.tar.gz/t/truncated_utf8.t -> _service:tar_scm:Encode-3.19.tar.gz/t/truncated_utf8.t Changed

_service:tar_scm:Encode-3.19.tar.gz/t/utf32warnings.t Added

@@ -0,0 +1,283 @@
+BEGIN {
+    if ( $ < 5.009 ) {
+        print "1..0 # Skip: Perl <= 5.9 or later required\n";
+        exit 0;
+    }
+}
+use strict;
+use warnings;
+
+my $script = quotemeta $0;
+
+use Encode;
+use Test::More tests => 38;
+
+my $valid   = "\x61\x00\x00\x00";
+my $invalid = "\x78\x56\x34\x12";
+
+our $warn;
+$SIG{__WARN__} = sub { $warn = $_0 };
+
+my $enc = find_encoding("UTF32-LE");
+
+{
+    local $warn;
+    my $ret = $enc->encode( "a", Encode::WARN_ON_ERR | Encode::ONLY_PRAGMA_WARNINGS | Encode::LEAVE_SRC );
+    is($warn, undef, "Calling encode on UTF32-LE encode object with valid string produces no warnings");
+    is($ret, $valid, "Calling encode on UTF32-LE encode object with valid string returns correct output");
+}
+
+
+{
+    local $warn;
+    $enc->encode( "\x{D800}", Encode::WARN_ON_ERR | Encode::ONLY_PRAGMA_WARNINGS | Encode::LEAVE_SRC );
+    like($warn, qr/UTF-16 surrogate.* at $script line /, "Calling encode on UTF32-LE encode object with invalid string warns");
+}
+
+{
+    local $warn;
+    no warnings 'utf8';
+    $enc->encode( "\x{D800}", Encode::WARN_ON_ERR | Encode::ONLY_PRAGMA_WARNINGS | Encode::LEAVE_SRC );
+    is($warn, undef, "Warning from encode method of UTF32-LE encode object can be silenced via no warnings 'utf8'");
+}
+
+{
+    local $warn;
+    no warnings;
+    $enc->encode( "\x{D800}", Encode::WARN_ON_ERR | Encode::ONLY_PRAGMA_WARNINGS | Encode::LEAVE_SRC );
+    is($warn, undef, "Warning from encode method of UTF32-LE encode object can be silenced via no warnings");
+}
+
+{
+    local $warn;
+    no warnings 'utf8';
+    $enc->encode( "\x{D800}", Encode::WARN_ON_ERR | Encode::LEAVE_SRC );
+    like($warn, qr/UTF-16 surrogate.* at $script line /, "Warning from encode method of UTF32-LE encode object cannot be silenced via no warnings 'utf8' when ONLY_PRAGMA_WARNINGS is not used");
+}
+
+{
+    local $warn;
+    no warnings;
+    $enc->encode( "\x{D800}", Encode::WARN_ON_ERR | Encode::LEAVE_SRC );
+    like($warn, qr/UTF-16 surrogate.* at $script line /, "Warning from encode method of UTF32-LE encode object cannot be silenced via no warnings when ONLY_PRAGMA_WARNINGS is not used");
+}
+
+
+{
+    local $warn;
+    my $ret = Encode::encode( $enc, "a", Encode::WARN_ON_ERR | Encode::ONLY_PRAGMA_WARNINGS | Encode::LEAVE_SRC );
+    is($warn, undef, "Calling Encode::encode for UTF32-LE with valid string produces no warnings");
+    is($ret, $valid, "Calling Encode::encode for UTF32-LE with valid string returns correct output");
+}
+
+
+{
+    local $warn;
+    Encode::encode( $enc, "\x{D800}", Encode::WARN_ON_ERR | Encode::ONLY_PRAGMA_WARNINGS | Encode::LEAVE_SRC );
+    like($warn, qr/UTF-16 surrogate.* at $script line /, "Calling Encode::encode for UTF32-LE with invalid string warns");
+}
+
+
+{
+    local $warn;
+    no warnings 'utf8';
+    Encode::encode( $enc, "\x{D800}", Encode::WARN_ON_ERR | Encode::ONLY_PRAGMA_WARNINGS | Encode::LEAVE_SRC );
+    is($warn, undef, "Warning from Encode::encode for UTF32-LE can be silenced via no warnings 'utf8'");
+}
+
+{
+    local $warn;
+    no warnings;
+    Encode::encode( $enc, "\x{D800}", Encode::WARN_ON_ERR | Encode::ONLY_PRAGMA_WARNINGS | Encode::LEAVE_SRC );
+    is($warn, undef, "Warning from Encode::encode for UTF32-LE can be silenced via no warnings");
+}
+
+{
+    local $warn;
+    no warnings 'utf8';
+    Encode::encode( $enc, "\x{D800}", Encode::WARN_ON_ERR | Encode::LEAVE_SRC );
+    like($warn, qr/UTF-16 surrogate.* at $script line /, "Warning from Encode::encode for UTF32-LE cannot be silenced via no warnings 'utf8' when ONLY_PRAGMA_WARNINGS is not used");
+}
+
+{
+    local $warn;
+    no warnings;
+    Encode::encode( $enc, "\x{D800}", Encode::WARN_ON_ERR | Encode::LEAVE_SRC );
+    like($warn, qr/UTF-16 surrogate.* at $script line /, "Warning from Encode::encode for UTF32-LE cannot be silenced via no warnings when ONLY_PRAGMA_WARNINGS is not used");
+}
+
+
+{
+    local $warn;
+    my $ret = $enc->decode( $valid, Encode::WARN_ON_ERR | Encode::ONLY_PRAGMA_WARNINGS | Encode::LEAVE_SRC );
+    is($warn, undef, "Calling decode on UTF32-LE encode object with valid string produces no warnings");
+    is($ret, "a", "Calling decode on UTF32-LE encode object with valid string returns correct output");
+}
+
+
+{
+    local $warn;
+    $enc->decode( $invalid, Encode::WARN_ON_ERR | Encode::ONLY_PRAGMA_WARNINGS | Encode::LEAVE_SRC );
+    like($warn, qr/may not be portable.* at $script line /, "Calling decode on UTF32-LE encode object with invalid string warns");
+}
+
+{
+    local $warn;
+    no warnings 'utf8';
+    $enc->decode( $invalid, Encode::WARN_ON_ERR | Encode::ONLY_PRAGMA_WARNINGS | Encode::LEAVE_SRC );
+    is($warn, undef, "Warning from decode method of UTF32-LE encode object can be silenced via no warnings 'utf8'");
+}
+
+{
+    local $warn;
+    no warnings;
+    $enc->decode( $invalid, Encode::WARN_ON_ERR | Encode::ONLY_PRAGMA_WARNINGS | Encode::LEAVE_SRC );
+    is($warn, undef, "Warning from decode method of UTF32-LE encode object can be silenced via no warnings");
+}
+
+{
+    local $warn;
+    no warnings 'utf8';
+    $enc->decode( $invalid, Encode::WARN_ON_ERR | Encode::LEAVE_SRC );
+    like($warn, qr/may not be portable.* at $script line /, "Warning from decode method of UTF32-LE encode object cannot be silenced via no warnings 'utf8' when ONLY_PRAGMA_WARNINGS is not used");
+}
+
+{
+    local $warn;
+    no warnings;
+    $enc->decode( $invalid, Encode::WARN_ON_ERR | Encode::LEAVE_SRC );
+    like($warn, qr/may not be portable.* at $script line /, "Warning from decode method of UTF32-LE encode object cannot be silenced via no warnings when ONLY_PRAGMA_WARNINGS is not used");
+}
+
+
+{
+    local $warn;
+    my $ret = Encode::decode( $enc, $valid, Encode::WARN_ON_ERR | Encode::ONLY_PRAGMA_WARNINGS | Encode::LEAVE_SRC );
+    is($warn, undef, "Calling Encode::decode for UTF32-LE with valid string produces no warnings");
+    is($ret, "a", "Calling Encode::decode for UTF32-LE with valid string returns correct output");
+}
+
+
+{
+    local $warn;
+    Encode::decode( $enc, $invalid, Encode::WARN_ON_ERR | Encode::ONLY_PRAGMA_WARNINGS | Encode::LEAVE_SRC );
+    like($warn, qr/may not be portable.* at $script line /, "Calling Encode::decode for UTF32-LE with invalid string warns");
+}
+
+{
+    local $warn;
+    no warnings 'utf8';
+    Encode::decode( $enc, $invalid, Encode::WARN_ON_ERR | Encode::ONLY_PRAGMA_WARNINGS | Encode::LEAVE_SRC );
+    is($warn, undef, "Warning from Encode::decode for UTF32-LE can be silenced via no warnings 'utf8'");
+}
+
+{
+    local $warn;
+    no warnings;
+    Encode::decode( $enc, $invalid, Encode::WARN_ON_ERR | Encode::ONLY_PRAGMA_WARNINGS | Encode::LEAVE_SRC );
+    is($warn, undef, "Warning from Encode::decode for UTF32-LE can be silenced via no warnings");
+}
+
+{
+    local $warn;
+    no warnings 'utf8';
+    Encode::decode( $enc, $invalid, Encode::WARN_ON_ERR | Encode::LEAVE_SRC );
+    like($warn, qr/may not be portable.* at $script line /, "Warning from Encode::decode for UTF32-LE cannot be silenced via no warnings 'utf8' when ONLY_PRAGMA_WARNINGS is not used");
+}
+
+{
+    local $warn;
+    no warnings;
+    Encode::decode( $enc, $invalid, Encode::WARN_ON_ERR | Encode::LEAVE_SRC );
+    like($warn, qr/may not be portable.* at $script line /, "Warning from Encode::decode for UTF32-LE cannot be silenced via no warnings when ONLY_PRAGMA_WARNINGS is not used");
+}
+
+
+use PerlIO::encoding;
+$PerlIO::encoding::fallback |= Encode::ONLY_PRAGMA_WARNINGS;
+
+{

_service:tar_scm:Encode-3.16.tar.gz/t/xml.t -> _service:tar_scm:Encode-3.19.tar.gz/t/xml.t Changed

Changes of Revision 10