Hello community, here is the log from the commit of package perl-Encode for openSUSE:Factory checked in at 2019-02-02 21:50:17 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Encode (Old) and /work/SRC/openSUSE:Factory/.perl-Encode.new.28833 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Encode" Sat Feb 2 21:50:17 2019 rev:7 rq:670634 version:3.00 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Encode/perl-Encode.changes 2019-01-28 20:49:47.481819976 +0100 +++ /work/SRC/openSUSE:Factory/.perl-Encode.new.28833/perl-Encode.changes 2019-02-02 21:50:17.639926516 +0100 @@ -1,0 +2,6 @@ +Thu Jan 31 06:07:17 UTC 2019 - Stephan Kulow <[email protected]> + +- updated to 3.00 + see /usr/share/doc/packages/perl-Encode/Changes + +------------------------------------------------------------------- Old: ---- Encode-2.99.tar.gz New: ---- Encode-3.00.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Encode.spec ++++++ --- /var/tmp/diff_new_pack.t9Bqfj/_old 2019-02-02 21:50:18.211926021 +0100 +++ /var/tmp/diff_new_pack.t9Bqfj/_new 2019-02-02 21:50:18.215926017 +0100 @@ -17,7 +17,7 @@ Name: perl-Encode -Version: 2.99 +Version: 3.00 Release: 0 %define cpan_name Encode Summary: Character Encodings in Perl ++++++ Encode-2.99.tar.gz -> Encode-3.00.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Encode-2.99/Changes new/Encode-3.00/Changes --- old/Encode-2.99/Changes 2019-01-21 04:14:12.000000000 +0100 +++ new/Encode-3.00/Changes 2019-01-31 05:52:01.000000000 +0100 @@ -1,8 +1,20 @@ # Revision history for Perl extension Encode. # -# $Id: Changes,v 2.99 2019/01/21 03:13:35 dankogai Exp $ +# $Id: Changes,v 3.00 2019/01/31 04:51:32 dankogai Exp $ # -$Revision: 2.99 $ $Date: 2019/01/21 03:13:35 $ +$Revision: 3.00 $ $Date: 2019/01/31 04:51:32 $ +! Encode.pm + VERSION bumped to 3.00 to make PAUSE happy + +2.100 2019/01/31 04:26:40 +! Encode.xs MANIFEST ++ t/xml.t + Pulled: Do not access SV* buffer if we have not called SvPV_force() + https://github.com/dankogai/p5-encode/pull/137 +! MANIFEST + remove utf8messages.t which is already deleted from the repository. + +2.99 2019/01/21 03:13:35 ! Unicode/Unicode.xs Unicode/Unicode.pm VERSION++'ed as Perl core needed. https://github.com/dankogai/p5-encode/issues/136 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Encode-2.99/Encode.pm new/Encode-3.00/Encode.pm --- old/Encode-2.99/Encode.pm 2019-01-21 04:14:12.000000000 +0100 +++ new/Encode-3.00/Encode.pm 2019-01-31 05:52:01.000000000 +0100 @@ -1,5 +1,5 @@ # -# $Id: Encode.pm,v 2.99 2019/01/21 03:11:41 dankogai Exp $ +# $Id: Encode.pm,v 3.00 2019/01/31 04:49:28 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: 2.99 $ =~ /(\d+)/g; + $VERSION = sprintf "%d.%02d", q$Revision: 3.00 $ =~ /(\d+)/g; require XSLoader; XSLoader::load( __PACKAGE__, $VERSION ); } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Encode-2.99/Encode.xs new/Encode-3.00/Encode.xs --- old/Encode-2.99/Encode.xs 2019-01-21 04:14:12.000000000 +0100 +++ new/Encode-3.00/Encode.xs 2019-01-31 05:52:01.000000000 +0100 @@ -1,5 +1,5 @@ /* - $Id: Encode.xs,v 2.45 2019/01/21 03:13:35 dankogai Exp $ + $Id: Encode.xs,v 2.46 2019/01/31 04:26:40 dankogai Exp $ */ #define PERL_NO_GET_CONTEXT @@ -148,6 +148,7 @@ IV check, STRLEN * offset, SV * term, int * retcode, SV *fallback_cb) { + U8 *sorig = s; STRLEN tlen = slen; STRLEN ddone = 0; STRLEN sdone = 0; @@ -309,7 +310,7 @@ /* settle variables when fallback */ d = (U8 *)SvEND(dst); dlen = SvLEN(dst) - ddone - 1; - s = (U8*)SvPVX(src) + sdone; + s = sorig + sdone; slen = tlen - sdone; break; @@ -322,12 +323,9 @@ } /* End of looping through the string */ ENCODE_SET_SRC: if (check && !(check & ENCODE_LEAVE_SRC)){ - sdone = SvCUR(src) - (slen+sdone); - if (sdone) { + sdone = tlen - (slen+sdone); sv_setpvn(src, (char*)s+slen, sdone); - } - SvCUR_set(src, sdone); - SvSETMAGIC(src); + SvSETMAGIC(src); } /* warn("check = 0x%X, code = 0x%d\n", check, code); */ @@ -335,7 +333,7 @@ SvPOK_only(dst); #if ENCODE_XS_PROFILE - if (SvCUR(dst) > SvCUR(src)){ + if (SvCUR(dst) > tlen){ Perl_warn(aTHX_ "SvLEN(dst)=%d, SvCUR(dst)=%d. %d bytes unused(%f %%)\n", SvLEN(dst), SvCUR(dst), SvLEN(dst) - SvCUR(dst), @@ -666,12 +664,9 @@ /* Clear out translated part of source unless asked not to */ if (modify) { - slen = e-s; - if (slen) { + slen = e-s; sv_setpvn(src, (char*)s, slen); - } - SvCUR_set(src, slen); - SvSETMAGIC(src); + SvSETMAGIC(src); } SvUTF8_on(dst); if (SvTAINTED(src)) SvTAINTED_on(dst); /* propagate taintedness */ @@ -736,12 +731,9 @@ /* Clear out translated part of source unless asked not to */ if (modify) { - slen = e-s; - if (slen) { + slen = e-s; sv_setpvn(src, (char*)s, slen); - } - SvCUR_set(src, slen); - SvSETMAGIC(src); + SvSETMAGIC(src); } SvPOK_only(dst); SvUTF8_off(dst); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Encode-2.99/MANIFEST new/Encode-3.00/MANIFEST --- old/Encode-2.99/MANIFEST 2019-01-21 04:17:05.000000000 +0100 +++ new/Encode-3.00/MANIFEST 2019-01-31 05:52:38.000000000 +0100 @@ -111,12 +111,12 @@ t/undef.t test script t/unibench.pl benchmark script t/use-Encode-Alias.t test script -t/utf8messages.t test script 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/xml.t test script ucm/8859-1.ucm Unicode Character Map ucm/8859-10.ucm Unicode Character Map ucm/8859-11.ucm Unicode Character Map diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Encode-2.99/META.json new/Encode-3.00/META.json --- old/Encode-2.99/META.json 2019-01-21 04:17:05.000000000 +0100 +++ new/Encode-3.00/META.json 2019-01-31 05:52:38.000000000 +0100 @@ -45,7 +45,7 @@ "url" : "https://github.com/dankogai/p5-encode"; } }, - "version" : "2.99", + "version" : "3.00", "x_contributors" : [ "Alex Davies <[email protected]>", "Alex Kapranoff <[email protected]>", diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Encode-2.99/META.yml new/Encode-3.00/META.yml --- old/Encode-2.99/META.yml 2019-01-21 04:17:05.000000000 +0100 +++ new/Encode-3.00/META.yml 2019-01-31 05:52:37.000000000 +0100 @@ -24,7 +24,7 @@ parent: '0.221' resources: repository: https://github.com/dankogai/p5-encode -version: '2.99' +version: '3.00' x_contributors: - 'Alex Davies <[email protected]>' - 'Alex Kapranoff <[email protected]>' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Encode-2.99/t/decode.t new/Encode-3.00/t/decode.t --- old/Encode-2.99/t/decode.t 2018-06-28 13:28:27.000000000 +0200 +++ new/Encode-3.00/t/decode.t 2019-01-31 05:52:02.000000000 +0100 @@ -1,5 +1,5 @@ # -# $Id: decode.t,v 1.4 2017/10/06 22:21:53 dankogai Exp $ +# $Id: decode.t,v 1.5 2019/01/31 04:26:40 dankogai Exp $ # use strict; use Encode qw(decode_utf8 FB_CROAK find_encoding decode); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Encode-2.99/t/enc_eucjp.t new/Encode-3.00/t/enc_eucjp.t --- old/Encode-2.99/t/enc_eucjp.t 2018-06-28 13:28:27.000000000 +0200 +++ new/Encode-3.00/t/enc_eucjp.t 2019-01-31 05:52:02.000000000 +0100 @@ -1,4 +1,4 @@ -# $Id: enc_eucjp.t,v 2.5 2017/06/10 17:23:50 dankogai Exp $ +# $Id: enc_eucjp.t,v 2.6 2019/01/31 04:26:40 dankogai Exp $ # This is the twin of enc_utf8.t . BEGIN { diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Encode-2.99/t/xml.t new/Encode-3.00/t/xml.t --- old/Encode-2.99/t/xml.t 1970-01-01 01:00:00.000000000 +0100 +++ new/Encode-3.00/t/xml.t 2019-01-31 05:19:55.000000000 +0100 @@ -0,0 +1,22 @@ +use strict; +use warnings; + +use Encode; +use Test::More; + +my $content = String->new("--\x{30c6}--"); +my $text = Encode::encode('latin1', $content, Encode::FB_XMLCREF); +is $text, "--テ--"; + +done_testing; + +package String; +use overload + '""' => sub { ${$_[0]} }, fallback => 1; + +sub new { + my($class, $str) = @_; + bless \$str, $class; +} + +1;
