Script 'mail_helper' called by obssrc Hello community, here is the log from the commit of package perl-Encode for openSUSE:Factory checked in at 2021-05-20 19:25:26 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Encode (Old) and /work/SRC/openSUSE:Factory/.perl-Encode.new.2988 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Encode" Thu May 20 19:25:26 2021 rev:16 rq:894570 version:3.10 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Encode/perl-Encode.changes 2020-12-03 18:44:06.354266839 +0100 +++ /work/SRC/openSUSE:Factory/.perl-Encode.new.2988/perl-Encode.changes 2021-05-20 19:25:56.145727069 +0200 @@ -1,0 +2,6 @@ +Wed May 19 03:07:50 UTC 2021 - Tina M??ller <[email protected]> + +- updated to 3.10 + see /usr/share/doc/packages/perl-Encode/Changes + +------------------------------------------------------------------- Old: ---- Encode-3.08.tar.gz New: ---- Encode-3.10.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Encode.spec ++++++ --- /var/tmp/diff_new_pack.hpbHRa/_old 2021-05-20 19:25:56.529725494 +0200 +++ /var/tmp/diff_new_pack.hpbHRa/_new 2021-05-20 19:25:56.529725494 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-Encode # -# Copyright (c) 2020 SUSE LLC +# Copyright (c) 2021 SUSE LLC # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -16,18 +16,16 @@ # +%define cpan_name Encode Name: perl-Encode -Version: 3.08 +Version: 3.10 Release: 0 -%define cpan_name Encode Summary: Character encodings in Perl License: Artistic-1.0 OR GPL-1.0-or-later -Group: Development/Libraries/Perl URL: https://metacpan.org/release/%{cpan_name} Source0: https://cpan.metacpan.org/authors/id/D/DA/DANKOGAI/%{cpan_name}-%{version}.tar.gz Source1: perl-Encode-rpmlintrc Source2: cpanspec.yml -BuildRoot: %{_tmppath}/%{name}-%{version}-build BuildRequires: perl BuildRequires: perl-macros BuildRequires: perl(Test::More) >= 0.92 @@ -61,11 +59,11 @@ the _why_. %prep -%setup -q -n %{cpan_name}-%{version} +%autosetup -n %{cpan_name}-%{version} %build perl Makefile.PL INSTALLDIRS=vendor OPTIMIZE="%{optflags}" -make %{?_smp_mflags} +%make_build %check make test @@ -84,7 +82,6 @@ %perl_gen_filelist %files -f %{name}.files -%defattr(-,root,root,755) %doc AUTHORS Changes README %changelog ++++++ Encode-3.08.tar.gz -> Encode-3.10.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Encode-3.08/Changes new/Encode-3.10/Changes --- old/Encode-3.08/Changes 2020-12-02 02:28:20.000000000 +0100 +++ new/Encode-3.10/Changes 2021-05-18 09:42:47.000000000 +0200 @@ -1,8 +1,27 @@ # Revision history for Perl extension Encode. # -# $Id: Changes,v 3.08 2020/12/02 01:28:17 dankogai Exp dankogai $ +# $Id: Changes,v 3.10 2021/05/18 07:42:45 dankogai Exp dankogai $ # -$Revision: 3.08 $ $Date: 2020/12/02 01:28:17 $ +$Revision: 3.10 $ $Date: 2021/05/18 07:42:45 $ +! JP/JP.pm + Fix POD Typo + https://rt.cpan.org/Ticket/Display.html?id=136533 +! Encode.pm + Replace non-ASCII apostrophes w/ \x27, which were introduced in #155 + https://rt.cpan.org/Public/Bug/Display.html?id=136534 + https://github.com/creaktive/Test-Mojibake/issues/15 + +3.09 2021/05/14 10:44:18 +! Encode.pm t/Encode.t + Addressed: find_encoding returns Internal encoding + `Unicode` is no longer a valid encoding name. + https://github.com/dankogai/p5-encode/issues/157 +! Encode.pm + Merge pull request #155 from FGasper/utf8_docs_detail + then retouch and re^2touch + https://github.com/dankogai/p5-encode/pull/155 + +3.08 2020/12/02 01:28:17 ! Makefile.PL Addressed: Encode requires Test::More 0.81_01 - this warns https://rt.cpan.org/Public/Bug/Display.html?id=133850 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Encode-3.08/Encode.pm new/Encode-3.10/Encode.pm --- old/Encode-3.08/Encode.pm 2020-12-02 02:28:20.000000000 +0100 +++ new/Encode-3.10/Encode.pm 2021-05-18 09:42:49.000000000 +0200 @@ -1,5 +1,5 @@ # -# $Id: Encode.pm,v 3.08 2020/12/02 01:27:44 dankogai Exp $ +# $Id: Encode.pm,v 3.10 2021/05/18 07:42:45 dankogai Exp dankogai $ # package Encode; use strict; @@ -7,7 +7,7 @@ use constant DEBUG => !!$ENV{PERL_ENCODE_DEBUG}; our $VERSION; BEGIN { - $VERSION = sprintf "%d.%02d", q$Revision: 3.08 $ =~ /(\d+)/g; + $VERSION = sprintf "%d.%02d", q$Revision: 3.10 $ =~ /(\d+)/g; require XSLoader; XSLoader::load( __PACKAGE__, $VERSION ); } @@ -202,18 +202,6 @@ $_[1] = '' if $chk; return $res; } -} else { - package Encode::Internal; - use parent 'Encode::Encoding'; - my $obj = bless { Name => "Internal" } => "Encode::Internal"; - Encode::define_encoding($obj, 'Unicode'); - sub decode { - my ( undef, $str, $chk ) = @_; - utf8::upgrade($str); - $_[1] = '' if $chk; - return $str; - } - *encode = \&decode; } { @@ -499,19 +487,25 @@ $octets = encode_utf8($string); +B<WARNING>: L<This function can produce invalid UTF-8!|/UTF-8 vs. utf8 vs. UTF8> +Do not use it for data exchange. +Unless you want Perl's older "lax" mode, prefer +C<$octets = encode("UTF-8", $string)>. + Equivalent to C<$octets = encode("utf8", $string)>. The characters in $string are encoded in Perl's internal format, and the result is returned as a sequence of octets. Because all possible characters in Perl have a (loose, not strict) utf8 representation, this function cannot fail. -B<WARNING>: do not use this function for data exchange as it can produce -not strict utf8 $octets! For strictly valid UTF-8 output use -C<$octets = encode("UTF-8", $string)>. - =head3 decode_utf8 $string = decode_utf8($octets [, CHECK]); +B<WARNING>: L<This function accepts invalid UTF-8!|/UTF-8 vs. utf8 vs. UTF8> +Do not use it for data exchange. +Unless you want Perl's older "lax" mode, prefer +C<$string = decode("UTF-8", $octets [, CHECK])>. + Equivalent to C<$string = decode("utf8", $octets [, CHECK])>. The sequence of octets represented by $octets is decoded from (loose, not strict) utf8 into a sequence of logical characters. @@ -519,10 +513,6 @@ it is quite possible for this function to fail. For CHECK, see L</"Handling Malformed Data">. -B<WARNING>: do not use this function for data exchange as it can produce -$string with not strict utf8 representation! For strictly valid UTF-8 -$string representation use C<$string = decode("UTF-8", $octets [, CHECK])>. - B<CAVEAT>: the input I<$octets> might be modified in-place depending on what is set in CHECK. See L</LEAVE_SRC> if you want your inputs to be left unchanged. @@ -927,6 +917,20 @@ encode("utf8", "\x{FFFF_FFFF}", 1); # okay encode("UTF-8", "\x{FFFF_FFFF}", 1); # croaks +This distinction is also important for decoding. In the following, +C<$s> stores character U+200000, which exceeds UTF-8's allowed range. +C<$s> thus stores an invalid Unicode code point: + + $s = decode("utf8", "\xf8\x88\x80\x80\x80"); + +C<"UTF-8">, by contrast, will either coerce the input to something valid: + + $s = decode("UTF-8", "\xf8\x88\x80\x80\x80"); # U+FFFD + +.. or croak: + + decode("UTF-8", "\xf8\x88\x80\x80\x80", FB_CROAK|LEAVE_SRC); + In the C<Encode> module, C<"UTF-8"> is actually a canonical name for C<"utf-8-strict">. That hyphen between the C<"UTF"> and the C<"8"> is critical; without it, C<Encode> goes "liberal" and (perhaps overly-)permissive: diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Encode-3.08/JP/JP.pm new/Encode-3.10/JP/JP.pm --- old/Encode-3.08/JP/JP.pm 2020-12-02 02:28:20.000000000 +0100 +++ new/Encode-3.10/JP/JP.pm 2021-05-18 09:42:50.000000000 +0200 @@ -7,7 +7,7 @@ use strict; use warnings; use Encode; -our $VERSION = do { my @r = ( q$Revision: 2.4 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r }; +our $VERSION = do { my @r = ( q$Revision: 2.5 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r }; use XSLoader; XSLoader::load( __PACKAGE__, $VERSION ); @@ -50,8 +50,8 @@ cp932 /\bwindows-31j$/i Code Page 932 = Shift JIS + MS/IBM vendor mappings jis0201-raw JIS0201, raw format - jis0208-raw JIS0201, raw format - jis0212-raw JIS0201, raw format + jis0208-raw JIS0208, raw format + jis0212-raw JIS0212, raw format -------------------------------------------------------------------- =head1 DESCRIPTION diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Encode-3.08/META.json new/Encode-3.10/META.json --- old/Encode-3.08/META.json 2020-12-02 02:29:52.000000000 +0100 +++ new/Encode-3.10/META.json 2021-05-18 09:43:33.000000000 +0200 @@ -4,7 +4,7 @@ "Dan Kogai <[email protected]>" ], "dynamic_config" : 1, - "generated_by" : "ExtUtils::MakeMaker version 7.44, CPAN::Meta::Converter version 2.150010", + "generated_by" : "ExtUtils::MakeMaker version 7.34, CPAN::Meta::Converter version 2.150010", "license" : [ "perl_5" ], @@ -49,7 +49,7 @@ "url" : "https://github.com/dankogai/p5-encode"; } }, - "version" : "3.08", + "version" : "3.10", "x_contributors" : [ "Alex Davies <[email protected]>", "Alex Kapranoff <[email protected]>", @@ -135,5 +135,5 @@ "Vincent van Dam <[email protected]>", "Yitzchak Scott-Thoennes <[email protected]>" ], - "x_serialization_backend" : "JSON::PP version 4.04" + "x_serialization_backend" : "JSON::PP version 4.02" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Encode-3.08/META.yml new/Encode-3.10/META.yml --- old/Encode-3.08/META.yml 2020-12-02 02:29:51.000000000 +0100 +++ new/Encode-3.10/META.yml 2021-05-18 09:43:33.000000000 +0200 @@ -8,7 +8,7 @@ configure_requires: ExtUtils::MakeMaker: '0' dynamic_config: 1 -generated_by: 'ExtUtils::MakeMaker version 7.44, CPAN::Meta::Converter version 2.150010' +generated_by: 'ExtUtils::MakeMaker version 7.34, CPAN::Meta::Converter version 2.150010' license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html @@ -24,7 +24,7 @@ parent: '0.221' resources: repository: https://github.com/dankogai/p5-encode -version: '3.08' +version: '3.10' x_contributors: - 'Alex Davies <[email protected]>' - 'Alex Kapranoff <[email protected]>' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Encode-3.08/Makefile.PL new/Encode-3.10/Makefile.PL --- old/Encode-3.08/Makefile.PL 2020-12-02 02:28:23.000000000 +0100 +++ new/Encode-3.10/Makefile.PL 2021-05-18 09:42:50.000000000 +0200 @@ -1,5 +1,5 @@ # -# $Id: Makefile.PL,v 2.23 2020/12/02 01:28:17 dankogai Exp dankogai $ +# $Id: Makefile.PL,v 2.23 2020/12/02 01:28:17 dankogai Exp $ # use 5.007003; use strict; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Encode-3.08/bin/encguess new/Encode-3.10/bin/encguess --- old/Encode-3.08/bin/encguess 2020-12-02 02:28:25.000000000 +0100 +++ new/Encode-3.10/bin/encguess 2021-05-18 09:42:50.000000000 +0200 @@ -61,7 +61,7 @@ =head1 VERSION -$Id: encguess,v 0.3 2020/12/02 01:28:17 dankogai Exp dankogai $ +$Id: encguess,v 0.3 2020/12/02 01:28:17 dankogai Exp $ =head1 SYNOPSIS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Encode-3.08/lib/Encode/GSM0338.pm new/Encode-3.10/lib/Encode/GSM0338.pm --- old/Encode-3.08/lib/Encode/GSM0338.pm 2020-12-02 02:28:26.000000000 +0100 +++ new/Encode-3.10/lib/Encode/GSM0338.pm 2021-05-18 09:42:50.000000000 +0200 @@ -1,5 +1,5 @@ # -# $Id: GSM0338.pm,v 2.9 2020/12/02 01:28:17 dankogai Exp dankogai $ +# $Id: GSM0338.pm,v 2.9 2020/12/02 01:28:17 dankogai Exp $ # package Encode::GSM0338; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Encode-3.08/t/Encode.t new/Encode-3.10/t/Encode.t --- old/Encode-3.08/t/Encode.t 2016-11-23 05:06:34.000000000 +0100 +++ new/Encode-3.10/t/Encode.t 2021-05-14 12:35:45.000000000 +0200 @@ -25,19 +25,10 @@ my @source = qw(ascii iso8859-1 cp1250); my @destiny = qw(cp1047 cp37 posix-bc); my @ebcdic_sets = qw(cp1047 cp37 posix-bc); -plan tests => 38+$n*@encodings + 2*@source*@destiny*@character_set + 2*@ebcdic_sets*256 + 6 + 3 + 3*8 + 2; +plan tests => 38+$n*@encodings + 2*@source*@destiny*@character_set + 2*@ebcdic_sets*256 + 6 + 3*8; my $str = join('',map(chr($_),0x20..0x7E)); my $cpy = $str; -is length($str),from_to($cpy,'iso8859-1','Unicode'),"Length Wrong"; -is $cpy,$str,"ASCII mangled by translating from iso8859-1 to Unicode"; -$cpy = $str; -is from_to($cpy,'Unicode','iso8859-1'),length($str),"Length wrong"; -is $cpy,$str,"ASCII mangled by translating from Unicode to iso8859-1"; - -$str = join('',map(chr($_),0xa0..0xff)); -$cpy = $str; -is length($str),from_to($cpy,'iso8859-1','Unicode'),"Length Wrong"; my $sym = Encode->getEncoding('symbol'); my $uni = $sym->decode(encode(ascii => 'a'));
