commit perl for openSUSE:Factory

2 Dec 2019

Hello community,

here is the log from the commit of package perl for openSUSE:Factory checked in at 2019-12-02 11:25:15
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl (Old)
 and      /work/SRC/openSUSE:Factory/.perl.new.4691 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Package is "perl"

Mon Dec  2 11:25:15 2019 rev:113 rq:749853 version:5.30.1

Changes:
--------

--- /work/SRC/openSUSE:Factory/perl/perl.changes	2019-07-08 15:08:32.227201858 +0200
+++ /work/SRC/openSUSE:Factory/.perl.new.4691/perl.changes	2019-12-02 11:25:44.858707836 +0100
@@ -1,0 +2,23 @@
+Tue Nov 19 14:25:46 CET 2019 - mls@suse.de
+
+- update to perl-5.30.1
+  * unicode 12.1 is supported
+  * turkic UTF-8 locales are now seamlessly supported
+  * assigning non-zero to $[ is fatal
+  * some formerly deprecated uses of an unescaped left brace "{" in
+    regular expression patterns are now illegal
+  * previously deprecated sysread()/syswrite() on :utf8 handles is 
+    now fatal
+  * my() in false conditional prohibited
+  * remove File::Glob::glob()
+  * various performance enhancements
+- updated patches:
+  * perl-5.22.0_wrong_rpm_provides.diff
+  * perl-gdbm-test-no-mmap.diff
+  * perl-fix2020.patch
+  * perl-reproducible2.patch
+- dropped patches:
+  * perl-revert-caretx.diff
+  * perl-regexp-refoverflow.diff
+
+-------------------------------------------------------------------

Old:
----
  perl-5.28.1.tar.xz
  perl-regexp-refoverflow.diff
  perl-revert-caretx.diff

New:
----
  perl-5.30.1.tar.xz

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

Other differences:
------------------
++++++ perl.spec ++++++
--- /var/tmp/diff_new_pack.LLhR0Y/_old	2019-12-02 11:25:48.930706296 +0100
+++ /var/tmp/diff_new_pack.LLhR0Y/_new	2019-12-02 11:25:48.930706296 +0100
@@ -12,14 +12,14 @@
 # license that conforms to the Open Source Definition (Version 1.9)
 # published by the Open Source Initiative.
 
-# Please submit bugfixes or comments via https://bugs.opensuse.org/
+# Please submit bugfixes or comments via http://bugs.opensuse.org/
 #
 
 
-%define pversion 5.28.1
-%global versionlist 5.28.0
+%define pversion 5.30.1
+%global versionlist %nil
 Name:           perl
-Version:        5.28.1
+Version:        5.30.1
 Release:        0
 Summary:        The Perl interpreter
 License:        Artistic-1.0 OR GPL-2.0-or-later
@@ -31,7 +31,6 @@
 Source3:        README.macros
 Source4:        baselibs.conf
 Patch0:         perl-5.28.0.dif
-Patch2:         perl-regexp-refoverflow.diff
 Patch3:         perl-nroff.diff
 Patch4:         perl-netcmdutf8.diff
 Patch5:         perl-HiRes.t-timeout.diff
@@ -46,7 +45,6 @@
 Patch13:        perl_skip_flaky_tests_powerpc.patch
 Patch14:        posix-sigaction.patch
 Patch15:        perl-gdbm-test-no-mmap.diff
-Patch16:        perl-revert-caretx.diff
 # PATCH-FIX-UPSTREAM unmerged
 Patch17:        perl-fix2020.patch
 # PATCH-FIX-UPSTREAM unmerged https://www.nntp.perl.org/group/perl.perl5.porters/2018/12/msg253240.html
@@ -67,54 +65,54 @@
 Obsoletes:      perl-I18N-LangTags <= 0.43
 Provides:       perl-MIME-Base64 = 3.15
 Obsoletes:      perl-MIME-Base64 <= 3.15
-Provides:       perl-Storable = 3.08
-Obsoletes:      perl-Storable <= 3.08
-Provides:       perl-Test-Simple = 1.302133
-Obsoletes:      perl-Test-Simple <= 1.302133
+Provides:       perl-Storable = 3.15
+Obsoletes:      perl-Storable <= 3.15
+Provides:       perl-Test-Simple = 1.302162
+Obsoletes:      perl-Test-Simple <= 1.302162
 Provides:       perl-Text-Balanced = 2.03
 Obsoletes:      perl-Text-Balanced <= 2.03
-Provides:       perl-Time-HiRes = 1.9759
-Obsoletes:      perl-Time-HiRes <= 1.9759
+Provides:       perl-Time-HiRes = 1.9760
+Obsoletes:      perl-Time-HiRes <= 1.9760
 Provides:       perl-libnet = 3.11
 Obsoletes:      perl-libnet <= 3.11
-Provides:       perl-Compress-Raw-Zlib = 2.076
-Obsoletes:      perl-Compress-Raw-Zlib <= 2.076
-Provides:       perl-Compress-Zlib = 2.074
-Obsoletes:      perl-Compress-Zlib <= 2.074
-Provides:       perl-IO-Compress-Base = 2.074
-Obsoletes:      perl-IO-Compress-Base <= 2.074
-Provides:       perl-IO-Compress-Zlib = 2.074
-Obsoletes:      perl-IO-Compress-Zlib <= 2.074
+Provides:       perl-Compress-Raw-Zlib = 2.084
+Obsoletes:      perl-Compress-Raw-Zlib <= 2.084
+Provides:       perl-Compress-Zlib = 2.084
+Obsoletes:      perl-Compress-Zlib <= 2.084
+Provides:       perl-IO-Compress-Base = 2.084
+Obsoletes:      perl-IO-Compress-Base <= 2.084
+Provides:       perl-IO-Compress-Zlib = 2.084
+Obsoletes:      perl-IO-Compress-Zlib <= 2.084
 Provides:       perl-IO-Zlib = 1.10
 Obsoletes:      perl-IO-Zlib <= 1.10
-Provides:       perl-Archive-Tar = 2.30
-Obsoletes:      perl-Archive-Tar <= 2.30
+Provides:       perl-Archive-Tar = 2.32
+Obsoletes:      perl-Archive-Tar <= 2.32
 Provides:       perl-Locale-Maketext-Simple = 0.21
 Obsoletes:      perl-Locale-Maketext-Simple <= 0.21
 Provides:       perl-Pod-Escapes = 1.07
 Obsoletes:      perl-Pod-Escapes <= 1.07
 Provides:       perl-Pod-Simple = 3.35
 Obsoletes:      perl-Pod-Simple <= 3.35
-Provides:       perl-ExtUtils-ParseXS = 3.39
-Obsoletes:      perl-ExtUtils-ParseXS <= 3.39
+Provides:       perl-ExtUtils-ParseXS = 3.40
+Obsoletes:      perl-ExtUtils-ParseXS <= 3.40
 Provides:       perl-CPAN-Meta = 2.150010
 Obsoletes:      perl-CPAN-Meta <= 2.150010
 Provides:       perl-CPAN-Meta-YAML = 0.018
 Obsoletes:      perl-CPAN-Meta-YAML <= 0.018
-Provides:       perl-ExtUtils-CBuilder = 0.280230
-Obsoletes:      perl-ExtUtils-CBuilder <= 0.280230
+Provides:       perl-ExtUtils-CBuilder = 0.280231
+Obsoletes:      perl-ExtUtils-CBuilder <= 0.280231
 Provides:       perl-IO-Socket-IP = 0.39
 Obsoletes:      perl-IO-Socket-IP <= 0.39
 Provides:       perl-Parse-CPAN-Meta = 2.150010
 Obsoletes:      perl-Parse-CPAN-Meta <= 2.150010
-Provides:       perl-PathTools = 3.63
-Obsoletes:      perl-PathTools <= 3.63
+Provides:       perl-PathTools = 3.75
+Obsoletes:      perl-PathTools <= 3.75
 Provides:       perl-autodie = 2.29
 Obsoletes:      perl-autodie <= 2.29
 Provides:       perl-Test-Harness = 3.42
 Obsoletes:      perl-Test-Harness <= 3.42
-Provides:       perl-version = 0.9923
-Obsoletes:      perl-version <= 0.9923
+Provides:       perl-version = 0.9924
+Obsoletes:      perl-version <= 0.9924
 %if "%{version}" != "%{pversion}"
 Provides:       perl = %{pversion}-%{release}
 %endif
@@ -169,7 +167,6 @@
 %setup -q -n perl-%{pversion}
 cp -p %{SOURCE3} .
 %patch0
-%patch2
 %patch3
 %patch4
 %patch5
@@ -184,9 +181,8 @@
 %patch12 -p1
 %patch14 -p1
 %patch15
-%patch16
-%patch17 -p1
-%patch18 -p1
+%patch17
+%patch18
 
 %build
 %define _lto_cflags %{nil}

++++++ perl-5.22.0_wrong_rpm_provides.diff ++++++
--- /var/tmp/diff_new_pack.LLhR0Y/_old	2019-12-02 11:25:48.990706272 +0100
+++ /var/tmp/diff_new_pack.LLhR0Y/_new	2019-12-02 11:25:48.990706272 +0100
@@ -1,24 +1,12 @@
---- ./cpan/Math-BigInt/lib/Math/BigInt/CalcEmu.pm.orig	2017-04-19 13:37:05.000000000 +0000
-+++ ./cpan/Math-BigInt/lib/Math/BigInt/CalcEmu.pm	2017-08-30 12:16:04.561183753 +0000
-@@ -6,7 +6,8 @@ use warnings;
- 
- our $VERSION = '1.999811';
- 
--package Math::BigInt;
-+package Math::BigInt # line break to prevent wrong rpm provides
-+;
- 
- # See SYNOPSIS below.
- 
---- ./lib/sigtrap.pm.orig	2017-04-19 13:37:05.000000000 +0000
-+++ ./lib/sigtrap.pm	2017-08-30 12:16:04.561183753 +0000
+--- ./lib/sigtrap.pm.orig	2019-10-24 20:18:05.000000000 +0000
++++ ./lib/sigtrap.pm	2019-11-19 13:38:25.304577027 +0000
 @@ -80,7 +80,8 @@ sub handler_die {
  }
  
  sub handler_traceback {
 -    package DB;		# To get subroutine args.
-+    package DB # line break to prevent wrong rpm provides
++    package DB	# line break to prevent wrong rpm provides
 +    ;		# To get subroutine args.
+     my $use_print;
      $SIG{'ABRT'} = DEFAULT;
      kill 'ABRT', $$ if $panic++;
-     syswrite(STDERR, 'Caught a SIG', 12);

++++++ perl-5.28.1.tar.xz -> perl-5.30.1.tar.xz ++++++
/work/SRC/openSUSE:Factory/perl/perl-5.28.1.tar.xz /work/SRC/openSUSE:Factory/.perl.new.4691/perl-5.30.1.tar.xz differ: char 26, line 1

++++++ perl-fix2020.patch ++++++
--- /var/tmp/diff_new_pack.LLhR0Y/_old	2019-12-02 11:25:49.018706262 +0100
+++ /var/tmp/diff_new_pack.LLhR0Y/_new	2019-12-02 11:25:49.018706262 +0100
@@ -6,75 +6,53 @@
 
 because year 70 then starts to mean 2070
 
-https://bugzilla.opensuse.org/show_bug.cgi?id=1102840 trackerbug: build fails at some time
+https://bugzilla.opensuse.org/show_bug.cgi?id=1102840 trackerbug: build fails at
+ some time
 https://rt.perl.org/Ticket/Display.html?id=132896 perl Net::NNTP 
-https://rt.perl.org/Ticket/Display.html?id=132898 perl Net::FTP => https://rt.cpan.org/Public/Bug/Display.html?id=124534
+https://rt.perl.org/Ticket/Display.html?id=132898 perl Net::FTP => https://rt.cp
+an.org/Public/Bug/Display.html?id=124534
 https://rt.perl.org/Ticket/Display.html?id=132897 perl doc
 
-Index: perl-5.26.1/cpan/Time-Local/t/Local.t
-===================================================================
---- perl-5.26.1.orig/cpan/Time-Local/t/Local.t
-+++ perl-5.26.1/cpan/Time-Local/t/Local.t
-@@ -85,6 +85,7 @@ my $epoch_is_64
- 
- for ( @time, @neg_time ) {
-     my ( $year, $mon, $mday, $hour, $min, $sec ) = @$_;
-+    my $year_in = $year;
-     $year -= 1900;
-     $mon--;
- 
-@@ -96,7 +97,6 @@ SKIP: {
- 
-         # Test timelocal()
-         {
--            my $year_in = $year < 70 ? $year + 1900 : $year;
-             my $time = timelocal( $sec, $min, $hour, $mday, $mon, $year_in );
- 
-             my ( $s, $m, $h, $D, $M, $Y ) = localtime($time);
-@@ -111,7 +111,6 @@ SKIP: {
- 
-         # Test timegm()
+--- ./cpan/Time-Local/t/Local.t.orig	2019-11-19 13:44:13.231729499 +0000
++++ ./cpan/Time-Local/t/Local.t	2019-11-19 13:52:27.846523342 +0000
+@@ -147,21 +147,21 @@ subtest(
+     'diff between two calls',
+     sub {
+         is(
+-            timelocal( 0, 0, 1, 1, 0, 90 ) - timelocal( 0, 0, 0, 1, 0, 90 ),
++            timelocal( 0, 0, 1, 1, 0, 1990 ) - timelocal( 0, 0, 0, 1, 0, 1990 ),
+             3600,
+             'one hour difference between two calls to timelocal'
+         );
+ 
+         is(
+-                  timelocal( 1, 2, 3, 1, 0, 100 )
+-                - timelocal( 1, 2, 3, 31, 11, 99 ),
++                  timelocal( 1, 2, 3, 1, 0, 2000 )
++                - timelocal( 1, 2, 3, 31, 11, 1999 ),
+             24 * 3600,
+             'one day difference between two calls to timelocal'
+         );
+ 
+         # Diff beween Jan 1, 1980 and Mar 1, 1980 = (31 + 29 = 60 days)
+         is(
+-            timegm( 0, 0, 0, 1, 2, 80 ) - timegm( 0, 0, 0, 1, 0, 80 ),
++            timegm( 0, 0, 0, 1, 2, 1980 ) - timegm( 0, 0, 0, 1, 0, 1980 ),
+             60 * 24 * 3600,
+             '60 day difference between two calls to timegm'
+         );
+@@ -176,7 +176,7 @@ subtest(
+         # treated like 03:00:00 rather than 01:00:00 - negative zone offsets
+         # used to do the latter.
          {
--            my $year_in = $year < 70 ? $year + 1900 : $year;
-             my $time = timegm( $sec, $min, $hour, $mday, $mon, $year_in );
- 
-             my ( $s, $m, $h, $D, $M, $Y ) = gmtime($time);
-@@ -128,7 +127,6 @@ SKIP: {
+-            my $hour = ( localtime( timelocal( 0, 0, 2, 7, 3, 102 ) ) )[2];
++            my $hour = ( localtime( timelocal( 0, 0, 2, 7, 3, 2002 ) ) )[2];
  
- for (@bad_time) {
-     my ( $year, $mon, $mday, $hour, $min, $sec ) = @$_;
--    $year -= 1900;
-     $mon--;
- 
-     eval { timegm( $sec, $min, $hour, $mday, $mon, $year ) };
-@@ -138,19 +136,19 @@ for (@bad_time) {
- 
- {
-     is(
--        timelocal( 0, 0, 1, 1, 0, 90 ) - timelocal( 0, 0, 0, 1, 0, 90 ), 3600,
-+        timelocal( 0, 0, 1, 1, 0, 1990 ) - timelocal( 0, 0, 0, 1, 0, 1990 ), 3600,
-         'one hour difference between two calls to timelocal'
-     );
- 
-     is(
--        timelocal( 1, 2, 3, 1, 0, 100 ) - timelocal( 1, 2, 3, 31, 11, 99 ),
-+        timelocal( 1, 2, 3, 1, 0, 2000 ) - timelocal( 1, 2, 3, 31, 11, 1999 ),
-         24 * 3600,
-         'one day difference between two calls to timelocal'
-     );
- 
-     # Diff beween Jan 1, 1980 and Mar 1, 1980 = (31 + 29 = 60 days)
-     is(
--        timegm( 0, 0, 0, 1, 2, 80 ) - timegm( 0, 0, 0, 1, 0, 80 ),
-+        timegm( 0, 0, 0, 1, 2, 1980 ) - timegm( 0, 0, 0, 1, 0, 1980 ),
-         60 * 24 * 3600,
-         '60 day difference between two calls to timegm'
-     );
-Index: perl-5.26.1/cpan/libnet/lib/Net/FTP.pm
-===================================================================
---- perl-5.26.1.orig/cpan/libnet/lib/Net/FTP.pm
-+++ perl-5.26.1/cpan/libnet/lib/Net/FTP.pm
-@@ -264,7 +264,7 @@ sub mdtm {
+             # testers in US/Pacific should get 3,
+             # other testers should get 2
+--- ./cpan/libnet/lib/Net/FTP.pm.orig	2019-11-19 13:47:09.143300523 +0000
++++ ./cpan/libnet/lib/Net/FTP.pm	2019-11-19 13:47:46.179210211 +0000
+@@ -262,7 +262,7 @@ sub mdtm {
  
    $ftp->_MDTM($file)
      && $ftp->message =~ /((\d\d)(\d\d\d?))(\d\d)(\d\d)(\d\d)(\d\d)(\d\d)/
@@ -83,11 +61,9 @@
      : undef;
  }
  
-Index: perl-5.26.1/cpan/libnet/lib/Net/NNTP.pm
-===================================================================
---- perl-5.26.1.orig/cpan/libnet/lib/Net/NNTP.pm
-+++ perl-5.26.1/cpan/libnet/lib/Net/NNTP.pm
-@@ -598,7 +598,7 @@ sub date {
+--- ./cpan/libnet/lib/Net/NNTP.pm.orig	2019-11-19 13:47:57.431182773 +0000
++++ ./cpan/libnet/lib/Net/NNTP.pm	2019-11-19 13:48:08.143156648 +0000
+@@ -596,7 +596,7 @@ sub date {
  
    $nntp->_DATE
      && $nntp->message =~ /(\d{4})(\d\d)(\d\d)(\d\d)(\d\d)(\d\d)/
@@ -96,10 +72,8 @@
      : undef;
  }
  
-Index: perl-5.26.1/pod/perlport.pod
-===================================================================
---- perl-5.26.1.orig/pod/perlport.pod
-+++ perl-5.26.1/pod/perlport.pod
+--- ./pod/perlport.pod.orig	2019-11-19 13:48:45.327065973 +0000
++++ ./pod/perlport.pod	2019-11-19 13:48:49.983054613 +0000
 @@ -670,7 +670,7 @@ When calculating specific times, such as
  it may be appropriate to calculate an offset for the epoch.
  

++++++ perl-gdbm-test-no-mmap.diff ++++++
--- /var/tmp/diff_new_pack.LLhR0Y/_old	2019-12-02 11:25:49.034706256 +0100
+++ /var/tmp/diff_new_pack.LLhR0Y/_new	2019-12-02 11:25:49.034706256 +0100
@@ -1,9 +1,9 @@
---- ./ext/GDBM_File/t/fatal.t.orig	2018-09-28 14:01:52.697941391 +0000
-+++ ./ext/GDBM_File/t/fatal.t	2018-09-28 14:02:35.601833563 +0000
-@@ -29,6 +29,7 @@ is((open $fh, "<&=$fileno"), undef,
+--- ./ext/GDBM_File/t/fatal.t.orig	2019-10-24 20:18:04.000000000 +0000
++++ ./ext/GDBM_File/t/fatal.t	2019-11-19 13:40:06.696330179 +0000
+@@ -37,6 +37,7 @@ is((open $fh, "<&=$fileno"), undef,
  umask(0);
  my %h;
- isa_ok(tie(%h, 'GDBM_File', 'Op_dbmx', GDBM_WRCREAT, 0640), 'GDBM_File');
+ isa_ok(tie(%h, 'GDBM_File', 'fatal_dbmx', GDBM_WRCREAT, 0640), 'GDBM_File');
 +tied(%h)->setopt(7, 0, length(pack("i", 0)));	# turn off mmap mode
  
  isnt((open $fh, "<&=$fileno"), undef, "dup fileno $fileno")

++++++ perl-reproducible2.patch ++++++
--- /var/tmp/diff_new_pack.LLhR0Y/_old	2019-12-02 11:25:49.050706250 +0100
+++ /var/tmp/diff_new_pack.LLhR0Y/_new	2019-12-02 11:25:49.050706250 +0100
@@ -14,22 +14,19 @@
     
     There could be a chance for remaining variations.
     
-    ---
+    --- 
     Better fixes welcome.
 
-Index: perl-5.28.1/dist/Storable/stacksize
-===================================================================
---- perl-5.28.1.orig/dist/Storable/stacksize
-+++ perl-5.28.1/dist/Storable/stacksize
-@@ -198,8 +198,8 @@ my $max_depth_hash = $n;
+--- ./dist/Storable/stacksize.orig	2019-11-19 13:55:21.210100584 +0000
++++ ./dist/Storable/stacksize	2019-11-19 13:56:37.537914451 +0000
+@@ -164,8 +164,8 @@ my $max_depth_hash = $n;
  # be fairly aggressive in trimming this, smoke testing showed several
  # several apparently random failures here, eg. working in one
  # configuration, but not in a very similar configuration.
 -$max_depth = int(0.6 * $max_depth);
--$max_depth_hash = int(0.6 * $max_depth);
+-$max_depth_hash = int(0.6 * $max_depth_hash);
 +$max_depth = int(0.6 * $max_depth) & ~31;
-+$max_depth_hash = int(0.6 * $max_depth) & ~31;
++$max_depth_hash = int(0.6 * $max_depth_hash) & ~31;
  
  my $stack_reserve = $^O eq "MSWin32" ? 32 : 16;
  if ($] ge "5.016" && !($^O eq "cygwin" && $ptrsize == 8)) {
-

    

root

tags

participants (1)