Script 'mail_helper' called by obssrc
Hello community,

here is the log from the commit of package perl-MIME-Charset for 
openSUSE:Factory checked in at 2022-08-17 18:16:42
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-MIME-Charset (Old)
 and      /work/SRC/openSUSE:Factory/.perl-MIME-Charset.new.1521 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Package is "perl-MIME-Charset"

Wed Aug 17 18:16:42 2022 rev:14 rq:997397 version:1.013.1

Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-MIME-Charset/perl-MIME-Charset.changes      
2017-04-17 10:24:19.647070964 +0200
+++ 
/work/SRC/openSUSE:Factory/.perl-MIME-Charset.new.1521/perl-MIME-Charset.changes
    2022-08-17 18:22:20.751078406 +0200
@@ -1,0 +2,20 @@
+Sat Aug 13 03:10:04 UTC 2022 - Tina M??ller <[email protected]>
+
+- updated to 1.013.1
+   see /usr/share/doc/packages/perl-MIME-Charset/Changes
+
+  1.013.1  2022-08-12  Hatuka*nezumi - IKEDA Soji  <hatuka(at)nezumi.nu>
+      * No new features.
+      * Update META.json.
+  1.013  2022-08-09  Hatuka*nezumi - IKEDA Soji  <hatuka(at)nezumi.nu>
+      * Update tests.
+      * A typo in comment: "3.18" should be "3.19".
+      * Fix: Escape sequences won't be used with DIN 66003.
+  1.013_01  2022-08-08  Hatuka*nezumi - IKEDA Soji  <hatuka(at)nezumi.nu>
+      * Imp: Added support for DIN 66003.
+      * Chg: Workaround: "ISO-8859-8-I" is treated as an alias of "ISO-8859-8"
+        by Encode (3.18): See the note in
+        https://encoding.spec.whatwg.org/#legacy-single-byte-encodings
+        However we'll treat these as separate names for compatibility.
+
+-------------------------------------------------------------------

Old:
----
  MIME-Charset-1.012.2.tar.gz

New:
----
  MIME-Charset-1.013.1.tar.gz

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Other differences:
------------------
++++++ perl-MIME-Charset.spec ++++++
--- /var/tmp/diff_new_pack.NZORhK/_old  2022-08-17 18:22:21.131079195 +0200
+++ /var/tmp/diff_new_pack.NZORhK/_new  2022-08-17 18:22:21.139079211 +0200
@@ -1,7 +1,7 @@
 #
 # spec file for package perl-MIME-Charset
 #
-# Copyright (c) 2017 SUSE LINUX GmbH, Nuernberg, Germany.
+# Copyright (c) 2022 SUSE LLC
 #
 # All modifications and additions to the file contributed by third parties
 # remain the property of their copyright owners, unless otherwise agreed
@@ -12,24 +12,23 @@
 # license that conforms to the Open Source Definition (Version 1.9)
 # published by the Open Source Initiative.
 
-# Please submit bugfixes or comments via http://bugs.opensuse.org/
+# Please submit bugfixes or comments via https://bugs.opensuse.org/
 #
 
 
+%define cpan_name MIME-Charset
 Name:           perl-MIME-Charset
-Version:        1.012.2
+Version:        1.013.1
 Release:        0
-%define cpan_name MIME-Charset
+License:        Artistic-1.0 OR GPL-1.0-or-later
 Summary:        Charset Information for MIME
-License:        GPL-1.0+ or Artistic-1.0
-Group:          Development/Libraries/Perl
-Url:            http://search.cpan.org/dist/MIME-Charset/
+URL:            https://metacpan.org/release/%{cpan_name}
 Source0:        
https://cpan.metacpan.org/authors/id/N/NE/NEZUMI/%{cpan_name}-%{version}.tar.gz
 Source1:        cpanspec.yml
 BuildArch:      noarch
-BuildRoot:      %{_tmppath}/%{name}-%{version}-build
 BuildRequires:  perl
 BuildRequires:  perl-macros
+BuildRequires:  perl(ExtUtils::MakeMaker) >= 6.42
 %{perl_requires}
 
 %description
@@ -37,14 +36,14 @@
 messages on Internet.
 
 %prep
-%setup -q -n %{cpan_name}-%{version}
+%autosetup  -n %{cpan_name}-%{version}
 
 %build
-%{__perl} Makefile.PL INSTALLDIRS=vendor
-%{__make} %{?_smp_mflags}
+PERL_USE_UNSAFE_INC=1 perl Makefile.PL INSTALLDIRS=vendor
+%make_build
 
 %check
-%{__make} test
+make test
 
 %install
 %perl_make_install
@@ -52,7 +51,6 @@
 %perl_gen_filelist
 
 %files -f %{name}.files
-%defattr(-,root,root,755)
 %doc Changes README
 %license ARTISTIC COPYING
 

++++++ MIME-Charset-1.012.2.tar.gz -> MIME-Charset-1.013.1.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/MIME-Charset-1.012.2/Changes 
new/MIME-Charset-1.013.1/Changes
--- old/MIME-Charset-1.012.2/Changes    2017-04-11 11:21:46.000000000 +0200
+++ new/MIME-Charset-1.013.1/Changes    2022-08-12 09:46:41.000000000 +0200
@@ -1,5 +1,24 @@
 Revision history for Perl module MIME::Charset.
 
+1.013.1  2022-08-12  Hatuka*nezumi - IKEDA Soji  <hatuka(at)nezumi.nu>
+
+    * No new features.
+    * Update META.json.
+
+1.013  2022-08-09  Hatuka*nezumi - IKEDA Soji  <hatuka(at)nezumi.nu>
+
+    * Update tests.
+    * A typo in comment: "3.18" should be "3.19".
+    * Fix: Escape sequences won't be used with DIN 66003.
+
+1.013_01  2022-08-08  Hatuka*nezumi - IKEDA Soji  <hatuka(at)nezumi.nu>
+
+    * Imp: Added support for DIN 66003.
+    * Chg: Workaround: "ISO-8859-8-I" is treated as an alias of "ISO-8859-8"
+      by Encode (3.18): See the note in
+      https://encoding.spec.whatwg.org/#legacy-single-byte-encodings
+      However we'll treat these as separate names for compatibility.
+
 1.012.2  2017-04-11  Hatuka*nezumi - IKEDA Soji  <hatuka(at)nezumi.nu>
 
     * Fix: Perl >= 5.26: Makefile.PL cannot use inc::Module::Install.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/MIME-Charset-1.012.2/META.json 
new/MIME-Charset-1.013.1/META.json
--- old/MIME-Charset-1.012.2/META.json  2017-04-11 11:17:54.000000000 +0200
+++ new/MIME-Charset-1.013.1/META.json  2022-08-12 09:44:51.000000000 +0200
@@ -50,6 +50,16 @@
             }
          }
       },
+      "misc" : {
+         "description" : "Additional mappings for rarely used old standards",
+         "prereqs" : {
+            "runtime" : {
+               "requires" : {
+                  "Encode::DIN66003" : "0"
+               }
+            }
+         }
+      },
       "pod2" : {
          "description" : "Support for POD2 - translations of Perl 
documentation",
          "prereqs" : {
@@ -84,7 +94,7 @@
    "provides" : {
       "MIME::Charset" : {
          "file" : "lib/MIME/Charset.pm",
-         "version" : "1.012.2"
+         "version" : "1.013.1"
       }
    },
    "release_status" : "stable",
@@ -93,5 +103,5 @@
          "url" : "https://github.com/hatukanezumi/MIME-Charset.git";
       }
    },
-   "version" : "1.012.2"
+   "version" : "1.013.1"
 }
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/MIME-Charset-1.012.2/Makefile.PL 
new/MIME-Charset-1.013.1/Makefile.PL
--- old/MIME-Charset-1.012.2/Makefile.PL        2017-04-11 11:17:09.000000000 
+0200
+++ new/MIME-Charset-1.013.1/Makefile.PL        2022-08-08 06:30:15.000000000 
+0200
@@ -23,6 +23,9 @@
     feature 'Additional mappings for Chinese standards',
       -default           => 0,
       'Encode::HanExtra' => '0.20';
+    feature 'Additional mappings for rarely used old standards',
+      -default           => 0,
+      'Encode::DIN66003' => '0.01';
     feature 'Support for POD2 - translations of Perl documentation',
       -default           => 0,
       'POD2::Base'       => '0.041';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/MIME-Charset-1.012.2/lib/MIME/Charset.pm 
new/MIME-Charset-1.013.1/lib/MIME/Charset.pm
--- old/MIME-Charset-1.012.2/lib/MIME/Charset.pm        2017-04-11 
11:18:08.000000000 +0200
+++ new/MIME-Charset-1.013.1/lib/MIME/Charset.pm        2022-08-12 
09:36:25.000000000 +0200
@@ -132,7 +132,7 @@
     }
 }
 
-$VERSION = '1.012.2';
+$VERSION = '1.013.1';
 
 ######## Private Attributes ########
 
@@ -142,6 +142,7 @@
 # This table was initially borrowed from Python email package.
 
 my %CHARSETS = (# input                    header enc body enc output conv
+               'DIN_66003' =>          ['Q',   undef,  undef],
                'ISO-8859-1' =>         ['Q',   'Q',    undef],
                'ISO-8859-2' =>         ['Q',   'Q',    undef],
                'ISO-8859-3' =>         ['Q',   'Q',    undef],
@@ -206,6 +207,7 @@
                       "CP874" =>               "WINDOWS-874",
                       "CP936" =>               "GBK",
                       "CP949" =>               "KS_C_5601-1987",
+                      "DIN66003" =>            "DIN_66003",
                       "EUC-CN" =>              "GB2312",
                       "HZ" =>                  "HZ-GB-2312", # RFC 1842
                       "KS_C_5601" =>           "KS_C_5601-1987",
@@ -268,6 +270,7 @@
                    'UTF-8'      => [['utf8'], ],       # Special name on Perl
                },
                'STANDARD' => {
+                   'DIN_66003'     => [['din66003', 'Endode::DIN66003'], ],
                    'ISO-8859-6-E'  => [['iso-8859-6'],],# Encode::Byte
                    'ISO-8859-6-I'  => [['iso-8859-6'],],# ditto
                    'ISO-8859-8-E'  => [['iso-8859-8'],],# Encode::Byte
@@ -413,6 +416,12 @@
        # And "TIS-620" not known by some versions of Encode (cf.
        # CPAN RT #20781).
        $charset = "TIS-620";
+    } elsif ($charset =~ /\biso[-_]8859[-_]8[-_]i$/i) {
+       # workaround: "ISO-8859-8-I" is treated as an alias of "ISO-8859-8"
+       # by Encode (3.19): See the note in
+       # https://encoding.spec.whatwg.org/#legacy-single-byte-encodings
+       # However we'll treat these as separate names for compatibility.
+       $charset = "ISO-8859-8-I";
     } else {
        $charset = resolve_alias($charset) || $charset
     }
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/MIME-Charset-1.012.2/t/04alias.t 
new/MIME-Charset-1.013.1/t/04alias.t
--- old/MIME-Charset-1.012.2/t/04alias.t        2017-04-06 02:46:05.000000000 
+0200
+++ new/MIME-Charset-1.013.1/t/04alias.t        2022-08-09 05:30:05.000000000 
+0200
@@ -8,7 +8,7 @@
        if ($] < 5.008) { # Perl 5.7.3 + Encode 0.04
            require Encode::CN;
        }
-       plan tests => 33;
+       plan tests => 34;
     }
 }
 
@@ -30,8 +30,8 @@
     my $obj = MIME::Charset->new($name);
     is($obj->as_string, $name, $name);
     if (&MIME::Charset::USE_ENCODE and
-       ($name eq 'HZ-GB-2312' or $name eq 'TIS-620' or $name eq 'UTF-16' or
-       $name eq 'UTF-32')) {
+       grep {$name eq $_}
+           ('HZ-GB-2312', 'ISO-8859-8-I', 'TIS-620', 'UTF-16', 'UTF-32')) {
        is($obj->decoder ? 'defined' : undef, 'defined', "$name available");
        diag("$name is decoded by '".$obj->decoder->name."' encoding")
            if $obj->decoder;

Reply via email to