Hello community,
here is the log from the commit of package perl-Encode for openSUSE:Factory
checked in at 2020-12-03 18:43:16
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Encode (Old)
and /work/SRC/openSUSE:Factory/.perl-Encode.new.5913 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Encode"
Thu Dec 3 18:43:16 2020 rev:15 rq:852878 version:3.08
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-Encode/perl-Encode.changes 2020-07-28
17:29:47.558207960 +0200
+++ /work/SRC/openSUSE:Factory/.perl-Encode.new.5913/perl-Encode.changes
2020-12-03 18:44:06.354266839 +0100
@@ -1,0 +2,6 @@
+Thu Dec 3 03:06:57 UTC 2020 - Tina Müller <timueller+p...@suse.de>
+
+- updated to 3.08
+ see /usr/share/doc/packages/perl-Encode/Changes
+
+-------------------------------------------------------------------
Old:
----
Encode-3.07.tar.gz
New:
----
Encode-3.08.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Encode.spec ++++++
--- /var/tmp/diff_new_pack.PQQpGN/_old 2020-12-03 18:44:06.818267452 +0100
+++ /var/tmp/diff_new_pack.PQQpGN/_new 2020-12-03 18:44:06.822267457 +0100
@@ -17,7 +17,7 @@
Name: perl-Encode
-Version: 3.07
+Version: 3.08
Release: 0
%define cpan_name Encode
Summary: Character encodings in Perl
@@ -30,7 +30,7 @@
BuildRoot: %{_tmppath}/%{name}-%{version}-build
BuildRequires: perl
BuildRequires: perl-macros
-BuildRequires: perl(Test::More) >= 0.81_01
+BuildRequires: perl(Test::More) >= 0.92
BuildRequires: perl(parent) >= 0.221
Requires: perl(parent) >= 0.221
%{perl_requires}
++++++ Encode-3.07.tar.gz -> Encode-3.08.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Encode-3.07/Changes new/Encode-3.08/Changes
--- old/Encode-3.07/Changes 2020-07-25 14:59:32.000000000 +0200
+++ new/Encode-3.08/Changes 2020-12-02 02:28:20.000000000 +0100
@@ -1,8 +1,23 @@
# Revision history for Perl extension Encode.
#
-# $Id: Changes,v 3.07 2020/07/25 12:59:29 dankogai Exp dankogai $
+# $Id: Changes,v 3.08 2020/12/02 01:28:17 dankogai Exp dankogai $
#
-$Revision: 3.07 $ $Date: 2020/07/25 12:59:29 $
+$Revision: 3.08 $ $Date: 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
+! bin/encguess
+ Pulled: Fix typo
+ https://github.com/dankogai/p5-encode/pull/153
+! t/gsm0338.t
+ Pulled: Remove old disabled tests from t/gsm0338.t
+ https://github.com/dankogai/p5-encode/pull/152
+! lib/Encode/GSM0338.pm t/gsm0338.t
+ Pulled: GSM0338: Enable PerlIO and fix code to not require
+ line buffering #151
+ https://github.com/dankogai/p5-encode/pull/151
+
+3.07 2020/07/25 12:59:29
! lib/Encode/GSM0338.pm t/gsm0338.t
Pulled: GSM0338: Fix encoding module to be compatible with
latest GSM 03.38 standard
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Encode-3.07/Encode.pm new/Encode-3.08/Encode.pm
--- old/Encode-3.07/Encode.pm 2020-07-25 14:59:32.000000000 +0200
+++ new/Encode-3.08/Encode.pm 2020-12-02 02:28:20.000000000 +0100
@@ -1,5 +1,5 @@
#
-# $Id: Encode.pm,v 3.07 2020/07/25 12:59:10 dankogai Exp $
+# $Id: Encode.pm,v 3.08 2020/12/02 01:27:44 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.07 $ =~ /(\d+)/g;
+ $VERSION = sprintf "%d.%02d", q$Revision: 3.08 $ =~ /(\d+)/g;
require XSLoader;
XSLoader::load( __PACKAGE__, $VERSION );
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Encode-3.07/META.json new/Encode-3.08/META.json
--- old/Encode-3.07/META.json 2020-07-25 15:02:45.000000000 +0200
+++ new/Encode-3.08/META.json 2020-12-02 02:29:52.000000000 +0100
@@ -39,7 +39,7 @@
},
"test" : {
"requires" : {
- "Test::More" : "0.81_01"
+ "Test::More" : "0.92"
}
}
},
@@ -49,7 +49,7 @@
"url" : "https://github.com/dankogai/p5-encode";
}
},
- "version" : "3.07",
+ "version" : "3.08",
"x_contributors" : [
"Alex Davies <alex.dav...@talktalk.net>",
"Alex Kapranoff <a...@kapranoff.ru>",
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Encode-3.07/META.yml new/Encode-3.08/META.yml
--- old/Encode-3.07/META.yml 2020-07-25 15:02:44.000000000 +0200
+++ new/Encode-3.08/META.yml 2020-12-02 02:29:51.000000000 +0100
@@ -4,7 +4,7 @@
- 'Dan Kogai <danko...@dan.co.jp>'
build_requires:
ExtUtils::MakeMaker: '0'
- Test::More: 0.81_01
+ Test::More: '0.92'
configure_requires:
ExtUtils::MakeMaker: '0'
dynamic_config: 1
@@ -24,7 +24,7 @@
parent: '0.221'
resources:
repository: https://github.com/dankogai/p5-encode
-version: '3.07'
+version: '3.08'
x_contributors:
- 'Alex Davies <alex.dav...@talktalk.net>'
- 'Alex Kapranoff <a...@kapranoff.ru>'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Encode-3.07/Makefile.PL new/Encode-3.08/Makefile.PL
--- old/Encode-3.07/Makefile.PL 2020-07-25 14:59:32.000000000 +0200
+++ new/Encode-3.08/Makefile.PL 2020-12-02 02:28:23.000000000 +0100
@@ -1,5 +1,5 @@
#
-# $Id: Makefile.PL,v 2.22 2017/10/06 22:21:53 dankogai Exp $
+# $Id: Makefile.PL,v 2.23 2020/12/02 01:28:17 dankogai Exp dankogai $
#
use 5.007003;
use strict;
@@ -70,7 +70,7 @@
Storable => '0', # bundled with Perl 5.7.3
},
TEST_REQUIRES => {
- 'Test::More' => '0.81_01',
+ 'Test::More' => '0.92',
},
PMLIBDIRS => \@pmlibdirs,
INSTALLDIRS => ($] < 5.011 ? 'perl' : 'site'),
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Encode-3.07/bin/encguess new/Encode-3.08/bin/encguess
--- old/Encode-3.07/bin/encguess 2020-07-25 14:59:32.000000000 +0200
+++ new/Encode-3.08/bin/encguess 2020-12-02 02:28:25.000000000 +0100
@@ -61,7 +61,7 @@
=head1 VERSION
-$Id: encguess,v 0.2 2016/08/04 03:15:58 dankogai Exp $
+$Id: encguess,v 0.3 2020/12/02 01:28:17 dankogai Exp dankogai $
=head1 SYNOPSIS
@@ -78,7 +78,7 @@
=item -s
specify a list of "suspect encoding types" to test,
-seperated by either C<:> or C<,>
+separated by either C<:> or C<,>
=item -S
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Encode-3.07/lib/Encode/GSM0338.pm
new/Encode-3.08/lib/Encode/GSM0338.pm
--- old/Encode-3.07/lib/Encode/GSM0338.pm 2020-07-25 14:59:36.000000000
+0200
+++ new/Encode-3.08/lib/Encode/GSM0338.pm 2020-12-02 02:28:26.000000000
+0100
@@ -1,5 +1,5 @@
#
-# $Id: GSM0338.pm,v 2.8 2020/07/25 12:59:29 dankogai Exp dankogai $
+# $Id: GSM0338.pm,v 2.9 2020/12/02 01:28:17 dankogai Exp dankogai $
#
package Encode::GSM0338;
@@ -8,16 +8,13 @@
use Carp;
use vars qw($VERSION);
-$VERSION = do { my @r = ( q$Revision: 2.8 $ =~ /\d+/g ); sprintf "%d." .
"%02d" x $#r, @r };
+$VERSION = do { my @r = ( q$Revision: 2.9 $ =~ /\d+/g ); sprintf "%d." .
"%02d" x $#r, @r };
use Encode qw(:fallbacks);
use parent qw(Encode::Encoding);
__PACKAGE__->Define('gsm0338');
-sub needs_lines { 1 }
-sub perlio_ok { 0 }
-
use utf8;
# Mapping table according to 3GPP TS 23.038 version 16.0.0 Release 16 and ETSI
TS 123 038 V16.0.0 (2020-07)
@@ -182,6 +179,10 @@
? $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) ) {
+ $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) {
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Encode-3.07/t/gsm0338.t new/Encode-3.08/t/gsm0338.t
--- old/Encode-3.07/t/gsm0338.t 2020-07-25 14:51:21.000000000 +0200
+++ new/Encode-3.08/t/gsm0338.t 2020-10-02 14:03:04.000000000 +0200
@@ -13,7 +13,7 @@
use strict;
use utf8;
-use Test::More tests => 776;
+use Test::More tests => 777;
use Encode;
use Encode::GSM0338;
@@ -83,49 +83,9 @@
is decode("gsm0338", encode('gsm0338', '..@@..')), '..@@..';
is decode("gsm0338", encode('gsm0338', '..@€..')), '..@€..';
-__END__
-for my $c (map { chr } 0..127){
- my $b = "\x1b$c";
- my $u = $Encode::GSM0338::GSM2UNI{$b};
- next unless $u;
- $u ||= "\xA0" . $Encode::GSM0338::GSM2UNI{$c};
- is decode("gsm0338", $b), $u, sprintf("decode ESC+\\x%02X", ord($c) );
-}
-
-__END__
-# old test follows
-ub t { is(decode("gsm0338", my $t = $_[0]), $_[1]) }
-
-# t("\x00", "\x00"); # ???
-
-# "Round-trip".
-t("\x41", "\x41");
-
-t("\x01", "\xA3");
-t("\x02", "\x24");
-t("\x03", "\xA5");
-t("\x09", "\xE7");
-
-t("\x00\x00", "\x00\x00"); # Maybe?
-t("\x00\x1B", "\x40\xA0"); # Maybe?
-t("\x00\x41", "\x40\x41");
-
-# t("\x1B", "\x1B"); # ???
-
-# Escape with no special second byte is just a NBSP.
-t("\x1B\x41", "\xA0\x41");
-
-t("\x1B\x00", "\xA0\x40"); # Maybe?
-
-# Special escape characters.
-t("\x1B\x0A", "\x0C");
-t("\x1B\x14", "\x5E");
-t("\x1B\x28", "\x7B");
-t("\x1B\x29", "\x7D");
-t("\x1B\x2F", "\x5C");
-t("\x1B\x3C", "\x5B");
-t("\x1B\x3D", "\x7E");
-t("\x1B\x3E", "\x5D");
-t("\x1B\x40", "\x7C");
-t("\x1B\x40", "\x7C");
-t("\x1B\x65", "\x{20AC}");
+# special GSM sequence, € is at 1024 byte buffer boundary
+my $gsm = "\x41" . "\x1B\x65" x 1024;
+open my $fh, '<:encoding(gsm0338)', \$gsm or die;
+my $uni = <$fh>;
+close $fh;
+is $uni, "A" . "€" x 1024, 'PerlIO encoding(gsm0338) read works';
_______________________________________________
openSUSE Commits mailing list -- commit@lists.opensuse.org
To unsubscribe, email commit-le...@lists.opensuse.org
List Netiquette: https://en.opensuse.org/openSUSE:Mailing_list_netiquette
List Archives:
https://lists.opensuse.org/archives/list/commit@lists.opensuse.org
