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
+
+- 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 ",
"Alex Kapranoff ",
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 '
- 'Alex Kapranoff '
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;
