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-08-03 22:48:47 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Encode (Old) and /work/SRC/openSUSE:Factory/.perl-Encode.new.1899 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Encode" Tue Aug 3 22:48:47 2021 rev:17 rq:909903 version:3.11 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Encode/perl-Encode.changes 2021-05-20 19:25:56.145727069 +0200 +++ /work/SRC/openSUSE:Factory/.perl-Encode.new.1899/perl-Encode.changes 2021-08-03 22:49:17.644456825 +0200 @@ -1,0 +2,6 @@ +Sat Jul 24 03:07:42 UTC 2021 - Tina M??ller <[email protected]> + +- updated to 3.11 + see /usr/share/doc/packages/perl-Encode/Changes + +------------------------------------------------------------------- Old: ---- Encode-3.10.tar.gz New: ---- Encode-3.11.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Encode.spec ++++++ --- /var/tmp/diff_new_pack.8QPaqX/_old 2021-08-03 22:49:18.084456294 +0200 +++ /var/tmp/diff_new_pack.8QPaqX/_new 2021-08-03 22:49:18.088456290 +0200 @@ -18,7 +18,7 @@ %define cpan_name Encode Name: perl-Encode -Version: 3.10 +Version: 3.11 Release: 0 Summary: Character encodings in Perl License: Artistic-1.0 OR GPL-1.0-or-later ++++++ Encode-3.10.tar.gz -> Encode-3.11.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Encode-3.10/Changes new/Encode-3.11/Changes --- old/Encode-3.10/Changes 2021-05-18 09:42:47.000000000 +0200 +++ new/Encode-3.11/Changes 2021-07-23 04:26:57.000000000 +0200 @@ -1,8 +1,21 @@ # Revision history for Perl extension Encode. # -# $Id: Changes,v 3.10 2021/05/18 07:42:45 dankogai Exp dankogai $ +# $Id: Changes,v 3.11 2021/07/23 02:26:54 dankogai Exp dankogai $ # -$Revision: 3.10 $ $Date: 2021/05/18 07:42:45 $ +$Revision: 3.11 $ $Date: 2021/07/23 02:26:54 $ +! Unicode/Unicode.xs ++ t/Unicode_trailing_nul.t + Pulled: Ensure that UTF-16 decode always includes a trailing NUL. + https://github.com/dankogai/p5-encode/pull/160 +! Unicode/Unicode.pm t/Unicode.t + Pullled: Fix links + https://github.com/dankogai/p5-encode/pull/158 +! lib/Encode/GSM0338.pm + Address RT#136586 + Just applied perltidy and 'make ci' + https://rt.cpan.org/Ticket/Display.html?id=136586 + +3.10 2021/05/18 07:42:45 ! JP/JP.pm Fix POD Typo https://rt.cpan.org/Ticket/Display.html?id=136533 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Encode-3.10/Encode.pm new/Encode-3.11/Encode.pm --- old/Encode-3.10/Encode.pm 2021-05-18 09:42:49.000000000 +0200 +++ new/Encode-3.11/Encode.pm 2021-07-23 04:26:57.000000000 +0200 @@ -1,5 +1,5 @@ # -# $Id: Encode.pm,v 3.10 2021/05/18 07:42:45 dankogai Exp dankogai $ +# $Id: Encode.pm,v 3.11 2021/07/23 02:26:02 dankogai Exp $ # 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.10 $ =~ /(\d+)/g; + $VERSION = sprintf "%d.%02d", q$Revision: 3.11 $ =~ /(\d+)/g; require XSLoader; XSLoader::load( __PACKAGE__, $VERSION ); } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Encode-3.10/MANIFEST new/Encode-3.11/MANIFEST --- old/Encode-3.10/MANIFEST 2021-05-18 09:43:33.000000000 +0200 +++ new/Encode-3.11/MANIFEST 2021-07-23 04:28:00.000000000 +0200 @@ -61,6 +61,7 @@ t/Encoder.t test script t/Mod_EUCJP.pm module that t/enc_module.enc uses t/Unicode.t test script +t/Unicode_trailing_nul.t test script t/at-cn.t test script t/at-tw.t test script t/big5-eten.enc test data @@ -74,8 +75,8 @@ t/enc_module.enc test data for t/enc_module.t t/enc_module.t test script t/enc_utf8.t test script -t/encoding.t test script t/encoding-locale.t test script +t/encoding.t test script t/fallback.t test script t/from_to.t test script t/gb2312.enc test data @@ -101,11 +102,11 @@ t/perlio.t test script t/piconv.t test script t/rt.pl even more test script +t/rt113164.t test script t/rt65541.t test script t/rt76824.t test script t/rt85489.t test script t/rt86327.t test script -t/rt113164.t test script t/taint.t test script t/truncated_utf8.t test script t/undef.t test script @@ -114,8 +115,8 @@ t/utf8ref.t test script t/utf8strict.t test script t/utf8warnings.t test script -t/whatwg-aliases.t test script t/whatwg-aliases.json test data +t/whatwg-aliases.t test script t/xml.t test script ucm/8859-1.ucm Unicode Character Map ucm/8859-10.ucm Unicode Character Map diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Encode-3.10/META.json new/Encode-3.11/META.json --- old/Encode-3.10/META.json 2021-05-18 09:43:33.000000000 +0200 +++ new/Encode-3.11/META.json 2021-07-23 04:28:00.000000000 +0200 @@ -49,7 +49,7 @@ "url" : "https://github.com/dankogai/p5-encode"; } }, - "version" : "3.10", + "version" : "3.11", "x_contributors" : [ "Alex Davies <[email protected]>", "Alex Kapranoff <[email protected]>", diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Encode-3.10/META.yml new/Encode-3.11/META.yml --- old/Encode-3.10/META.yml 2021-05-18 09:43:33.000000000 +0200 +++ new/Encode-3.11/META.yml 2021-07-23 04:28:00.000000000 +0200 @@ -24,7 +24,7 @@ parent: '0.221' resources: repository: https://github.com/dankogai/p5-encode -version: '3.10' +version: '3.11' x_contributors: - 'Alex Davies <[email protected]>' - 'Alex Kapranoff <[email protected]>' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Encode-3.10/Unicode/Unicode.pm new/Encode-3.11/Unicode/Unicode.pm --- old/Encode-3.10/Unicode/Unicode.pm 2021-05-18 09:42:50.000000000 +0200 +++ new/Encode-3.11/Unicode/Unicode.pm 2021-07-23 04:27:04.000000000 +0200 @@ -3,7 +3,7 @@ use strict; use warnings; -our $VERSION = do { my @r = ( q$Revision: 2.18 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r }; +our $VERSION = do { my @r = ( q$Revision: 2.19 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r }; use XSLoader; XSLoader::load( __PACKAGE__, $VERSION ); @@ -259,7 +259,7 @@ =head1 SEE ALSO L<Encode>, L<Encode::Unicode::UTF7>, L<http://www.unicode.org/glossary/>, -L<http://www.unicode.org/unicode/faq/utf_bom.html>, +L<http://www.unicode.org/faq/utf_bom.html>, RFC 2781 L<http://www.ietf.org/rfc/rfc2781.txt>, diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Encode-3.10/Unicode/Unicode.xs new/Encode-3.11/Unicode/Unicode.xs --- old/Encode-3.10/Unicode/Unicode.xs 2021-05-18 09:42:50.000000000 +0200 +++ new/Encode-3.11/Unicode/Unicode.xs 2021-07-23 04:27:06.000000000 +0200 @@ -1,5 +1,5 @@ /* - $Id: Unicode.xs,v 2.19 2019/01/21 03:09:59 dankogai Exp $ + $Id: Unicode.xs,v 2.20 2021/07/23 02:26:54 dankogai Exp dankogai $ */ #define IN_UNICODE_XS @@ -361,6 +361,10 @@ } if (!temp_result) shrink_buffer(result); + + /* Make sure we have a trailing NUL: */ + *SvEND(result) = '\0'; + if (SvTAINTED(str)) SvTAINTED_on(result); /* propagate taintedness */ XSRETURN(1); } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Encode-3.10/lib/Encode/GSM0338.pm new/Encode-3.11/lib/Encode/GSM0338.pm --- old/Encode-3.10/lib/Encode/GSM0338.pm 2021-05-18 09:42:50.000000000 +0200 +++ new/Encode-3.11/lib/Encode/GSM0338.pm 2021-07-23 04:27:07.000000000 +0200 @@ -1,5 +1,5 @@ # -# $Id: GSM0338.pm,v 2.9 2020/12/02 01:28:17 dankogai Exp $ +# $Id: GSM0338.pm,v 2.10 2021/05/24 10:56:53 dankogai Exp $ # package Encode::GSM0338; @@ -8,7 +8,7 @@ use Carp; use vars qw($VERSION); -$VERSION = do { my @r = ( q$Revision: 2.9 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r }; +$VERSION = do { my @r = ( q$Revision: 2.10 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r }; use Encode qw(:fallbacks); @@ -159,12 +159,12 @@ "\x{20AC}" => "\x1B\x65", # EURO SIGN ); our %GSM2UNI = reverse %UNI2GSM; -our $ESC = "\x1b"; +our $ESC = "\x1b"; sub decode ($$;$) { my ( $obj, $bytes, $chk ) = @_; return undef unless defined $bytes; - my $str = substr($bytes, 0, 0); # to propagate taintedness; + my $str = substr( $bytes, 0, 0 ); # to propagate taintedness; while ( length $bytes ) { my $seq = ''; my $c; @@ -173,53 +173,57 @@ $seq .= $c; } while ( length $bytes and $c eq $ESC ); my $u = - exists $GSM2UNI{$seq} - ? $GSM2UNI{$seq} - : ($chk && ref $chk eq 'CODE') - ? $chk->( unpack 'C*', $seq ) - : "\x{FFFD}"; + exists $GSM2UNI{$seq} ? $GSM2UNI{$seq} + : ( $chk && ref $chk eq 'CODE' ) ? $chk->( unpack 'C*', $seq ) + : "\x{FFFD}"; if ( not exists $GSM2UNI{$seq} and $chk and not ref $chk ) { - if ( substr($seq, 0, 1) eq $ESC and ($chk & Encode::STOP_AT_PARTIAL) ) { + if ( substr( $seq, 0, 1 ) eq $ESC + and ( $chk & Encode::STOP_AT_PARTIAL ) ) + { $bytes .= $seq; last; } - croak join( '', map { sprintf "\\x%02X", $_ } unpack 'C*', $seq ) . ' does not map to Unicode' if $chk & Encode::DIE_ON_ERR; - carp join( '', map { sprintf "\\x%02X", $_ } unpack 'C*', $seq ) . ' does not map to Unicode' if $chk & Encode::WARN_ON_ERR; - if ($chk & Encode::RETURN_ON_ERR) { + croak join( '', map { sprintf "\\x%02X", $_ } unpack 'C*', $seq ) + . ' does not map to Unicode' + if $chk & Encode::DIE_ON_ERR; + carp join( '', map { sprintf "\\x%02X", $_ } unpack 'C*', $seq ) + . ' does not map to Unicode' + if $chk & Encode::WARN_ON_ERR; + if ( $chk & Encode::RETURN_ON_ERR ) { $bytes .= $seq; last; } } $str .= $u; } - $_[1] = $bytes if not ref $chk and $chk and !($chk & Encode::LEAVE_SRC); + $_[1] = $bytes if not ref $chk and $chk and !( $chk & Encode::LEAVE_SRC ); return $str; } sub encode($$;$) { my ( $obj, $str, $chk ) = @_; return undef unless defined $str; - my $bytes = substr($str, 0, 0); # to propagate taintedness + my $bytes = substr( $str, 0, 0 ); # to propagate taintedness while ( length $str ) { my $u = substr( $str, 0, 1, '' ); my $c; my $seq = - exists $UNI2GSM{$u} - ? $UNI2GSM{$u} - : ($chk && ref $chk eq 'CODE') - ? $chk->( ord($u) ) - : $UNI2GSM{'?'}; + exists $UNI2GSM{$u} ? $UNI2GSM{$u} + : ( $chk && ref $chk eq 'CODE' ) ? $chk->( ord($u) ) + : $UNI2GSM{'?'}; if ( not exists $UNI2GSM{$u} and $chk and not ref $chk ) { - croak sprintf( "\\x{%04x} does not map to %s", ord($u), $obj->name ) if $chk & Encode::DIE_ON_ERR; - carp sprintf( "\\x{%04x} does not map to %s", ord($u), $obj->name ) if $chk & Encode::WARN_ON_ERR; - if ($chk & Encode::RETURN_ON_ERR) { + croak sprintf( "\\x{%04x} does not map to %s", ord($u), $obj->name ) + if $chk & Encode::DIE_ON_ERR; + carp sprintf( "\\x{%04x} does not map to %s", ord($u), $obj->name ) + if $chk & Encode::WARN_ON_ERR; + if ( $chk & Encode::RETURN_ON_ERR ) { $str .= $u; last; } } $bytes .= $seq; } - $_[1] = $str if not ref $chk and $chk and !($chk & Encode::LEAVE_SRC); + $_[1] = $str if not ref $chk and $chk and !( $chk & Encode::LEAVE_SRC ); return $bytes; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Encode-3.10/t/Unicode.t new/Encode-3.11/t/Unicode.t --- old/Encode-3.10/t/Unicode.t 2021-05-18 09:42:51.000000000 +0200 +++ new/Encode-3.11/t/Unicode.t 2021-07-23 04:27:09.000000000 +0200 @@ -1,5 +1,5 @@ # -# $Id: Unicode.t,v 2.3 2012/08/05 23:08:49 dankogai Exp $ +# $Id: Unicode.t,v 2.4 2021/07/23 02:26:54 dankogai Exp dankogai $ # # This script is written entirely in ASCII, even though quoted literals # do include non-BMP unicode characters -- Are you happy, jhi? @@ -25,7 +25,7 @@ # # see -# http://www.unicode.org/unicode/reports/tr19/ +# http://www.unicode.org/reports/tr19/ # my $dankogai = "\x{5c0f}\x{98fc}\x{3000}\x{5f3e}"; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Encode-3.10/t/Unicode_trailing_nul.t new/Encode-3.11/t/Unicode_trailing_nul.t --- old/Encode-3.10/t/Unicode_trailing_nul.t 1970-01-01 01:00:00.000000000 +0100 +++ new/Encode-3.11/t/Unicode_trailing_nul.t 2021-07-08 17:54:34.000000000 +0200 @@ -0,0 +1,26 @@ +use strict; +use Test::More; + +use Encode; +use File::Temp; +use File::Spec; + +# This test relies on https://github.com/Perl/perl5/issues/10623; +# if that bug is ever fixed then this test may never fail again. + +my $foo = Encode::decode("UTF-16LE", "/\0v\0a\0r\0/\0f\0f\0f\0f\0f\0f\0/\0u\0s\0e\0r\0s\0/\0s\0u\0p\0e\0r\0m\0a\0n\0"); + +my ($fh, $path) = File::Temp::tempfile( CLEANUP => 1 ); + +diag "temp file: $path"; + +# Perl gives the internal PV to exec .. which is buggy/wrong but +# useful here: +system( $^X, '-e', "open my \$fh, '>>', '$path' or die \$!; print {\$fh} \$ARGV[0]", $foo ); +die if $?; + +my $output = do { local $/; <$fh> }; + +is( $output, "/var/ffffff/users/superman", 'UTF-16 decodes with trailing NUL' ); + +done_testing();
