Accepting request 494775 from home:coolo:branches:openSUSE:Factory

- Fix building with zlib-1.2.10 (RT#119762): * Compress-Raw-Zlib-2.071-Adapt-tests-to-zlib-1.2.11.patch - Update to perl-5.24.1 -Di switch is now required for PerlIO debugging output Previously PerlIO debugging output would be sent to the file specified by the "PERLIO_DEBUG" environment variable if perl wasn't running setuid and the -T or -t switches hadn't been parsed yet. If perl performed output at a point where it hadn't yet parsed its switches this could result in perl creating or overwriting the file named by "PERLIO_DEBUG" even when the -T switch had been supplied. Perl now requires the -Di switch to produce PerlIO debugging output. By default this is written to "stderr", but can optionally be redirected to a file by setting the "PERLIO_DEBUG" environment variable. If perl is running setuid or the -T switch was supplied "PERLIO_DEBUG" is ignored and the debugging output is sent to "stderr" as for any other -D switch. Core modules and tools no longer search "." for optional modules The tools and many modules supplied in core no longer search the default current directory entry in @INC for optional modules. For example, Storable will remove the final "." from @INC before trying to load Log::Agent. This prevents an attacker injecting an optional module into a process run by another user where the current directory is writable by the attacker, e.g. the /tmp directory. - Refresh patches OBS-URL: https://build.opensuse.org/request/show/494775 OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl?expand=0&rev=148
2017-05-17 10:00:29 +00:00 · 2017-05-17 10:00:29 +00:00 · a47e3f1af9
commit a47e3f1af9
parent f10756e7ae
14 changed files with 441 additions and 260 deletions
--- a/Compress-Raw-Zlib-2.071-Adapt-tests-to-zlib-1.2.11.patch
+++ b/Compress-Raw-Zlib-2.071-Adapt-tests-to-zlib-1.2.11.patch
@ -0,0 +1,45 @@
+Index: cpan/Compress-Raw-Zlib/t/02zlib.t
+===================================================================
+--- cpan/Compress-Raw-Zlib/t/02zlib.t.orig
+++ cpan/Compress-Raw-Zlib/t/02zlib.t
+@@ -24,13 +24,13 @@ BEGIN
+ 
+     my $count = 0 ;
+     if ($] < 5.005) {
+-        $count = 232 ;
+        $count = 236 ;
+     }
+     elsif ($] >= 5.006) {
+-        $count = 317 ;
+        $count = 320 ;
+     }
+     else {
+-        $count = 275 ;
+        $count = 278 ;
+     }
+ 
+     plan tests => $count + $extra;
+@@ -537,6 +537,7 @@ SKIP:
+      
+     $status = $x->deflate($hello, $Answer) ;
+     cmp_ok $status, '==', Z_OK ;
+    cmp_ok $x->flush($Answer, Z_BLOCK), '==', Z_OK ;
+     $input .= $hello;
+     
+     # error cases
+@@ -561,6 +562,7 @@ SKIP:
+      
+     $status = $x->deflate($goodbye, $Answer) ;
+     cmp_ok $status, '==', Z_OK ;
+    cmp_ok $x->flush($Answer, Z_BLOCK), '==', Z_OK ;
+     $input .= $goodbye;
+     
+     # change only Level 
+@@ -572,6 +574,7 @@ SKIP:
+      
+     $status = $x->deflate($goodbye, $Answer) ;
+     cmp_ok $status, '==', Z_OK ;
+    cmp_ok $x->flush($Answer, Z_BLOCK), '==', Z_OK ;
+     $input .= $goodbye;
+     
+     # change only Strategy
--- a/perl-5.18.2-overflow.diff
+++ b/perl-5.18.2-overflow.diff
@ -1,6 +1,8 @@
--- sv.c.bak	2014-03-24 15:11:48.007595042 +0100
-+++ sv.c	2014-03-25 11:57:41.154752451 +0100
-@@ -2175,7 +2175,7 @@ S_sv_2iuv_common(pTHX_ SV *const sv)
+Index: sv.c
+===================================================================
+--- sv.c.orig
+++ sv.c
+@@ -2153,7 +2153,7 @@ S_sv_2iuv_common(pTHX_ SV *const sv)
 #ifndef NV_PRESERVES_UV
                 && SvIVX(sv) != IV_MIN /* avoid negating IV_MIN below */
 		&& (((UV)1 << NV_PRESERVES_UV_BITS) >
--- a/perl-5.22.0_wrong_rpm_provides.diff
+++ b/perl-5.22.0_wrong_rpm_provides.diff
@ -1,5 +1,7 @@
--- ./cpan/Math-BigInt/lib/Math/BigInt/CalcEmu.pm.orig	2016-03-01 12:33:01.000000000 +0000
-+++ ./cpan/Math-BigInt/lib/Math/BigInt/CalcEmu.pm	2016-05-09 11:56:55.769386963 +0000
+Index: cpan/Math-BigInt/lib/Math/BigInt/CalcEmu.pm
+===================================================================
+--- cpan/Math-BigInt/lib/Math/BigInt/CalcEmu.pm.orig
+++ cpan/Math-BigInt/lib/Math/BigInt/CalcEmu.pm
@@ -7,7 +7,8 @@ use warnings;
 our $VERSION = '1.999715';
 $VERSION = eval $VERSION;
@ -10,8 +12,10 @@
 
 # See SYNOPSIS below.
 
--- ./lib/sigtrap.pm.orig	2016-03-01 12:33:02.000000000 +0000
-+++ ./lib/sigtrap.pm	2016-05-09 11:56:55.769386963 +0000
+Index: lib/sigtrap.pm
+===================================================================
+--- lib/sigtrap.pm.orig
+++ lib/sigtrap.pm
@@ -80,7 +80,8 @@ sub handler_die {
 }
 
--- a/perl-5.24.0.dif
+++ b/perl-5.24.0.dif
@ -1,5 +1,7 @@
--- ./Configure.orig	2016-04-26 22:11:09.000000000 +0000
-+++ ./Configure	2016-05-09 11:46:57.865487194 +0000
+Index: Configure
+===================================================================
+--- Configure.orig
+++ Configure
@@ -117,7 +117,7 @@ paths="$paths /usr/5bin /etc /usr/gnu/bi
 paths="$paths /opt/gnu/bin /opt/new /opt/new/bin /opt/nbin"
 paths="$paths /sys5.3/bin /sys5.3/usr/bin /bsd4.3/bin /bsd4.3/usr/ucb"
@ -93,185 +95,10 @@
 perl_patchlevel='$perl_patchlevel'
 perl_static_inline='$perl_static_inline'
 perladmin='$perladmin'
--- ./SuSE/SuSEconfig.perl.orig	2016-05-09 11:46:57.866487189 +0000
-+++ ./SuSE/SuSEconfig.perl	2016-05-09 11:46:57.866487189 +0000
-@@ -0,0 +1,76 @@
-+#! /bin/bash
-+#
-+# Copyright (c) 1996 S.u.S.E. Gmbh Fuerth, Germany.  All rights reserved.
-+#
-+# Author: Burchard Steinbild <bs@suse.de>, 1996
-+#         Martin Scherbaum <maddin@suse.de>, 5/1997         
-+#         Ruediger Oertel <ro@suse.de>, 7/1998
-+
-+#
-+# Variables in /etc/sysconfig/suseconfig used by this script are: 
-+#   CREATE_PERLLOCAL_POD
-+#
-+# This script calls the scripts:
-+#   /usr/sbin/perllocal.suse which comes from the package perl
-+#
-+
-+#
-+# check if we are started as root
-+# only one of UID and USER must be set correctly
-+#
-+if test "$UID" != 0 -a "$USER" != root; then
-+    echo "You must be root to start $0."
-+    exit 1
-+fi
-+
-+#
-+# SuSEconfig sometimes sets the variable CHECK_NEWPACKAGE. If it is set
-+# to false, we don't have to do anything.
-+# 
-+test "$CHECK_NEWPACKAGE" = false && exit 0
-+
-+test -f /etc/sysconfig/suseconfig || { echo "No /etc/sysconfig/suseconfig found." && exit 1 ; }
-+. /etc/sysconfig/suseconfig
-+
-+# this skript only works in a running system.
-+
-+test -n "$ROOT" && exit 0
-+
-+perl -e 'exit 0' 2>/dev/null || { echo "Perl not found." && exit 0 ; }
-+
-+#
-+# see if we may do any work
-+#
-+test -n "$CREATE_PERLLOCAL_POD" -a "$CREATE_PERLLOCAL_POD" = "yes" \
-+	|| { echo "disabled in sysconfig/suseconfig" && exit 1 ; }
-+	
-+#
-+# check if anything to add
-+#
-+PERLLOCAL_PATH=`perl -V:installarchlib | sed -e "s/.*='\(.*\)'.*/\1/"`
-+
-+NEEDED="false"
-+
-+if test -d /var/adm/perl-modules ; then 
-+	if test /var/adm/perl-modules -nt $PERLLOCAL_PATH/perllocal.pod ; then
-+		NEEDED="true"
-+	elif test ! -f $PERLLOCAL_PATH/perllocal.pod ; then
-+		NEEDED="true"
-+	fi
-+fi
-+
-+#
-+# now call the working script
-+#
-+if "$NEEDED" = "true" ; then
-+	if test -x /usr/lib/perl5/perllocal.SuSE ; then
-+		/usr/lib/perl5/perllocal.SuSE
-+		pod2man $PERLLOCAL_PATH/perllocal.pod | gzip > /usr/share/man/man3/perllocal.3pm.gz
-+	else
-+		echo "SuSEconfig.perl: /usr/lib/perl5/perllocal.SuSE not found!"
-+	fi
-+fi
-+
-+#
-+# end of file SuSEconfig.perl
-+#
--- ./SuSE/perllocal.SuSE.orig	2016-05-09 11:46:57.866487189 +0000
-+++ ./SuSE/perllocal.SuSE	2016-05-09 11:46:57.866487189 +0000
-@@ -0,0 +1,84 @@
-+#!/usr/bin/perl
-+# Copyright (c) 1998 S.u.S.E. Gmbh Fuerth, Germany.  All rights reserved.
-+#
-+# Author: Ruediger Oertel <ro@suse.de>, 1998
-+#
-+
-+use Config;
-+
-+sub ReadFile {
-+  local (*IF,*modules) = @_;
-+
-+  while(<IF>) {
-+	chomp ($_);
-+	next if (/^$/);
-+	if (/^=head2.*$/) {
-+		($front,$rear) = split (': ',$_);
-+		$front =~ s/^=head2\s*//; 
-+		$modules{$rear} = "$front";
-+	} elsif (/^=over [0-9]*$/) {
-+		($dummy,$num) = split ('\s',$_);
-+		$curnum = 0;
-+	} elsif (/^C<.*:.*>$/) {
-+		$entry = $_;
-+		$curnum++;
-+		$modules{$rear} .= "\0$entry";
-+	} elsif (/^=back$/) {
-+		;
-+	} elsif (/^=item \*$/) {
-+		;
-+	} else {
-+		print "SuSEconfig.perl: parsing perllocal:\n";
-+		print "ignoring line: $_\n";
-+	}
-+  }  
-+  return %modules;
-+}
-+
-+local (%allmodules);
-+
-+if (open (IF, "<$Config{'installarchlib'}/perllocal.pod")) {
-+	%allmodules = ReadFile(*IF,*allmodules);
-+}
-+close (IF);
-+
-+opendir (DIR, "/var/adm/perl-modules");
-+while ($dirent = readdir(DIR)) {
-+	next if ($dirent =~ /^\./);
-+	open (IF , "/var/adm/perl-modules/$dirent");
-+	%allmodules = ReadFile(*IF,*allmodules);
-+	close (IF);
-+}
-+closedir (DIR);
-+
-+
-+if (open (OF, ">$Config{'installarchlib'}/perllocal.pod")) {
-+  foreach $key (keys(%allmodules)) {
-+	$name = $key;
-+	$name =~ s/^.*L\<//;
-+	$name =~ s/.*\|//;
-+	$name =~ s/>$//;
-+	$name =~ s/::/\//;
-+	@entries = split ('\0',$allmodules{$key});
-+	$ipath = $entries[1];
-+	$ipath =~ s/^.*\:\s//;
-+	$ipath =~ s/>$//;
-+
-+	# test if the module is really there, else skip	
-+	if ( -d "$ipath/$Config{'archname'}/auto/$name" ||
-+	     -d "$Config{'installarchlib'}/auto/$name" ) {
-+	  $num = $#entries;
-+	  print OF "=head2 ",shift(@entries),": $key\n\n";
-+	  print OF "=over $num\n\n";
-+	  while ($_ = shift(@entries)) {
-+	    print OF "=item *\n\n";
-+	    print OF "$_\n\n";
-+	  }
-+	  print OF "=back\n\n";
-+	}
-+  }
-+  close (OF);
-+} else {
-+	print "SuSEconfig.perl: Can't write to file $Config{'installarchlib'}/perllocal.pod !\n\n";
-+}
-+
--- ./SuSE/sysconfig.suseconfig-perl.orig	2016-05-09 11:46:57.866487189 +0000
-+++ ./SuSE/sysconfig.suseconfig-perl	2016-05-09 11:46:57.866487189 +0000
-@@ -0,0 +1,8 @@
-+## Path:	System/SuSEconfig
-+## Type:	yesno
-+## Default:	yes
-+## Config:	perl
-+#
-+# May SuSEconfig modify your perllocal.pod? (yes/no)
-+#
-+CREATE_PERLLOCAL_POD="yes"
--- ./cpan/Compress-Raw-Zlib/config.in.orig	2015-10-14 13:17:05.000000000 +0000
-+++ ./cpan/Compress-Raw-Zlib/config.in	2016-05-09 11:46:57.867487184 +0000
+Index: cpan/Compress-Raw-Zlib/config.in
+===================================================================
+--- cpan/Compress-Raw-Zlib/config.in.orig
+++ cpan/Compress-Raw-Zlib/config.in
@@ -16,9 +16,9 @@
 #    Setting the Gzip OS Code
 #
@ -285,9 +112,11 @@
 
 OLD_ZLIB        = False
 GZIP_OS_CODE    = AUTO_DETECT
--- ./cpan/Encode/bin/enc2xs.orig	2016-03-01 12:33:01.000000000 +0000
-+++ ./cpan/Encode/bin/enc2xs	2016-05-09 11:46:57.867487184 +0000
-@@ -1065,7 +1065,7 @@ sub make_configlocal_pm {
+Index: cpan/Encode/bin/enc2xs
+===================================================================
+--- cpan/Encode/bin/enc2xs.orig
+++ cpan/Encode/bin/enc2xs
+@@ -1066,7 +1066,7 @@ sub make_configlocal_pm {
 	    $LocalMod{$enc} ||= $mod;
 	}
     };
@ -296,8 +125,10 @@
     $_ModLines = "";
     for my $enc ( sort keys %LocalMod ) {
         $_ModLines .=
--- ./cpan/ExtUtils-Install/lib/ExtUtils/Packlist.pm.orig	2016-03-01 12:33:01.000000000 +0000
-+++ ./cpan/ExtUtils-Install/lib/ExtUtils/Packlist.pm	2016-05-09 11:46:57.868487180 +0000
+Index: cpan/ExtUtils-Install/lib/ExtUtils/Packlist.pm
+===================================================================
+--- cpan/ExtUtils-Install/lib/ExtUtils/Packlist.pm.orig
+++ cpan/ExtUtils-Install/lib/ExtUtils/Packlist.pm
@@ -207,8 +207,11 @@ foreach my $key (sort(keys(%{$self->{dat
    {
    if (! -e $key)
@ -312,8 +143,10 @@
       }
    }
 return(@missing);
--- ./cpan/File-Temp/lib/File/Temp.pm.orig	2016-02-05 15:26:05.000000000 +0000
-+++ ./cpan/File-Temp/lib/File/Temp.pm	2016-05-09 11:46:57.869487178 +0000
+Index: cpan/File-Temp/lib/File/Temp.pm
+===================================================================
+--- cpan/File-Temp/lib/File/Temp.pm.orig
+++ cpan/File-Temp/lib/File/Temp.pm
@@ -16,7 +16,7 @@ use Fcntl 1.03;
 use IO::Seekable;               # For SEEK_*
 use Errno;
@ -323,19 +156,11 @@
 
 # pre-emptively load Carp::Heavy. If we don't when we run out of file
 # handles and attempt to call croak() we get an error message telling
--- ./cpan/Sys-Syslog/t/syslog.t.orig	2016-02-05 15:26:05.000000000 +0000
-+++ ./cpan/Sys-Syslog/t/syslog.t	2016-05-09 11:46:57.869487178 +0000
-@@ -220,6 +220,7 @@ SKIP: {
-         }
-     }
-     else  {
-+	$r = 1 unless -e '/dev/log';
-         ok( $r, "setlogsock() should return true: '$r'" );
-     }
- 
--- ./cpan/libnet/lib/Net/Config.pm.orig	2016-03-01 12:33:02.000000000 +0000
-+++ ./cpan/libnet/lib/Net/Config.pm	2016-05-09 11:46:57.869487178 +0000
-@@ -48,7 +48,7 @@ our %NetConfig = (
+Index: cpan/libnet/lib/Net/Config.pm
+===================================================================
+--- cpan/libnet/lib/Net/Config.pm.orig
+++ cpan/libnet/lib/Net/Config.pm
+@@ -53,7 +53,7 @@ our %NetConfig = (
 {
 ## no critic (BuiltinFunctions::ProhibitStringyEval)
 $^O eq 'MacOS' and eval <<TRY_INTERNET_CONFIG;
@ -344,8 +169,22 @@
 
 {
 my %nc = (
--- ./ext/DynaLoader/hints/linux.pl.orig	2015-10-14 13:17:06.000000000 +0000
-+++ ./ext/DynaLoader/hints/linux.pl	2016-05-09 11:46:57.870487175 +0000
+Index: cpan/Sys-Syslog/t/syslog.t
+===================================================================
+--- cpan/Sys-Syslog/t/syslog.t.orig
+++ cpan/Sys-Syslog/t/syslog.t
+@@ -220,6 +220,7 @@ SKIP: {
+         }
+     }
+     else  {
+	$r = 1 unless -e '/dev/log';
+         ok( $r, "setlogsock() should return true: '$r'" );
+     }
+ 
+Index: ext/DynaLoader/hints/linux.pl
+===================================================================
+--- ext/DynaLoader/hints/linux.pl.orig
+++ ext/DynaLoader/hints/linux.pl
@@ -2,4 +2,7 @@
 # Some Linux releases like to hide their <nlist.h>
 $self->{CCFLAGS} = $Config{ccflags} . ' -I/usr/include/libelf'
@ -354,8 +193,21 @@
 +# module, so add cccdlflags if we're going for a shared libperl
 +$self->{CCFLAGS} = ($self->{CCFLAGS} || $Config{ccflags}) . " $Config{cccdlflags}" if $Config{'useshrplib'} eq 'true';
 1;
--- ./ext/ODBM_File/Makefile.PL.orig	2015-10-14 13:17:06.000000000 +0000
-+++ ./ext/ODBM_File/Makefile.PL	2016-05-09 11:46:57.870487175 +0000
+Index: ext/ODBM_File/hints/linux.pl
+===================================================================
+--- ext/ODBM_File/hints/linux.pl.orig
+++ ext/ODBM_File/hints/linux.pl
+@@ -1,5 +1,5 @@
+ # uses GDBM dbm compatibility feature - at least on SuSE 8.0
+-$self->{LIBS} = ['-lgdbm'];
+$self->{LIBS} = ['-lgdbm -lgdbm_compat'];
+ 
+ # Debian/Ubuntu have libgdbm_compat.so but not this file,
+ # so linking may fail
+Index: ext/ODBM_File/Makefile.PL
+===================================================================
+--- ext/ODBM_File/Makefile.PL.orig
+++ ext/ODBM_File/Makefile.PL
@@ -1,7 +1,7 @@
 use ExtUtils::MakeMaker;
 WriteMakefile(
@ -365,17 +217,10 @@
     XSPROTOARG => '-noprototypes', 		# XXX remove later?
     VERSION_FROM => 'ODBM_File.pm', 
 );
--- ./ext/ODBM_File/hints/linux.pl.orig	2015-10-14 13:17:06.000000000 +0000
-+++ ./ext/ODBM_File/hints/linux.pl	2016-05-09 11:46:57.870487175 +0000
-@@ -1,5 +1,5 @@
- # uses GDBM dbm compatibility feature - at least on SuSE 8.0
-$self->{LIBS} = ['-lgdbm'];
-+$self->{LIBS} = ['-lgdbm -lgdbm_compat'];
- 
- # Debian/Ubuntu have libgdbm_compat.so but not this file,
- # so linking may fail
--- ./hints/linux.sh.orig	2016-03-01 12:33:02.000000000 +0000
-+++ ./hints/linux.sh	2016-05-09 11:46:57.871487171 +0000
+Index: hints/linux.sh
+===================================================================
+--- hints/linux.sh.orig
+++ hints/linux.sh
@@ -53,7 +53,7 @@ ignore_versioned_solibs='y'
 # BSD compatibility library no longer needed
 # 'kaffe' has a /usr/lib/libnet.so which is not at all relevant for perl.
@ -474,8 +319,10 @@
 	;;
 esac
 EOCBU
--- ./installperl.orig	2016-03-01 12:33:02.000000000 +0000
-+++ ./installperl	2016-05-09 11:46:57.871487171 +0000
+Index: installperl
+===================================================================
+--- installperl.orig
+++ installperl
@@ -728,7 +728,7 @@ sub installlib {
     return if $name eq 'ExtUtils/MakeMaker/version/regex.pm';
 
@ -485,9 +332,11 @@
 	  ($name =~ /^(.*)\.(?:pm|pod)$/ && $archpms{$1}) ||
 	  ($name =~ /^(.*)\.(?:h|lib)$/i && ($Is_W32 || $Is_NetWare)) ||
 	  $name=~/^Config_(heavy|git)\.pl\z/
--- ./lib/perl5db.pl.orig	2016-04-26 22:11:09.000000000 +0000
-+++ ./lib/perl5db.pl	2016-05-09 11:46:57.874487160 +0000
-@@ -2356,6 +2356,8 @@ sub _DB__handle_run_command_in_pager_com
+Index: lib/perl5db.pl
+===================================================================
+--- lib/perl5db.pl.orig
+++ lib/perl5db.pl
+@@ -2359,6 +2359,8 @@ sub _DB__handle_run_command_in_pager_com
                 open( OUT, ">&STDOUT" )    # XXX: lost message
                 || _db_warn("Can't restore DB::OUT");
             }
@ -496,7 +345,7 @@
             next CMD;
         } ## end unless ($piped = open(OUT,...
 
-@@ -2460,6 +2462,9 @@ sub _DB__at_end_of_every_command {
+@@ -2463,6 +2465,9 @@ sub _DB__at_end_of_every_command {
             $obj->selected("");
         }
 
@ -506,9 +355,194 @@
         # No pipes now.
         $obj->piped("");
     } ## end if ($piped)
--- ./utils/perlbug.PL.orig	2016-02-05 15:26:06.000000000 +0000
-+++ ./utils/perlbug.PL	2016-05-09 11:46:57.875487157 +0000
-@@ -1038,6 +1038,7 @@ sub _message_headers {
+Index: SuSE/perllocal.SuSE
+===================================================================
+--- /dev/null
+++ SuSE/perllocal.SuSE
+@@ -0,0 +1,84 @@
+#!/usr/bin/perl
+# Copyright (c) 1998 S.u.S.E. Gmbh Fuerth, Germany.  All rights reserved.
+#
+# Author: Ruediger Oertel <ro@suse.de>, 1998
+#
+
+use Config;
+
+sub ReadFile {
+  local (*IF,*modules) = @_;
+
+  while(<IF>) {
+	chomp ($_);
+	next if (/^$/);
+	if (/^=head2.*$/) {
+		($front,$rear) = split (': ',$_);
+		$front =~ s/^=head2\s*//; 
+		$modules{$rear} = "$front";
+	} elsif (/^=over [0-9]*$/) {
+		($dummy,$num) = split ('\s',$_);
+		$curnum = 0;
+	} elsif (/^C<.*:.*>$/) {
+		$entry = $_;
+		$curnum++;
+		$modules{$rear} .= "\0$entry";
+	} elsif (/^=back$/) {
+		;
+	} elsif (/^=item \*$/) {
+		;
+	} else {
+		print "SuSEconfig.perl: parsing perllocal:\n";
+		print "ignoring line: $_\n";
+	}
+  }  
+  return %modules;
+}
+
+local (%allmodules);
+
+if (open (IF, "<$Config{'installarchlib'}/perllocal.pod")) {
+	%allmodules = ReadFile(*IF,*allmodules);
+}
+close (IF);
+
+opendir (DIR, "/var/adm/perl-modules");
+while ($dirent = readdir(DIR)) {
+	next if ($dirent =~ /^\./);
+	open (IF , "/var/adm/perl-modules/$dirent");
+	%allmodules = ReadFile(*IF,*allmodules);
+	close (IF);
+}
+closedir (DIR);
+
+
+if (open (OF, ">$Config{'installarchlib'}/perllocal.pod")) {
+  foreach $key (keys(%allmodules)) {
+	$name = $key;
+	$name =~ s/^.*L\<//;
+	$name =~ s/.*\|//;
+	$name =~ s/>$//;
+	$name =~ s/::/\//;
+	@entries = split ('\0',$allmodules{$key});
+	$ipath = $entries[1];
+	$ipath =~ s/^.*\:\s//;
+	$ipath =~ s/>$//;
+
+	# test if the module is really there, else skip	
+	if ( -d "$ipath/$Config{'archname'}/auto/$name" ||
+	     -d "$Config{'installarchlib'}/auto/$name" ) {
+	  $num = $#entries;
+	  print OF "=head2 ",shift(@entries),": $key\n\n";
+	  print OF "=over $num\n\n";
+	  while ($_ = shift(@entries)) {
+	    print OF "=item *\n\n";
+	    print OF "$_\n\n";
+	  }
+	  print OF "=back\n\n";
+	}
+  }
+  close (OF);
+} else {
+	print "SuSEconfig.perl: Can't write to file $Config{'installarchlib'}/perllocal.pod !\n\n";
+}
+
+Index: SuSE/SuSEconfig.perl
+===================================================================
+--- /dev/null
+++ SuSE/SuSEconfig.perl
+@@ -0,0 +1,76 @@
+#! /bin/bash
+#
+# Copyright (c) 1996 S.u.S.E. Gmbh Fuerth, Germany.  All rights reserved.
+#
+# Author: Burchard Steinbild <bs@suse.de>, 1996
+#         Martin Scherbaum <maddin@suse.de>, 5/1997         
+#         Ruediger Oertel <ro@suse.de>, 7/1998
+
+#
+# Variables in /etc/sysconfig/suseconfig used by this script are: 
+#   CREATE_PERLLOCAL_POD
+#
+# This script calls the scripts:
+#   /usr/sbin/perllocal.suse which comes from the package perl
+#
+
+#
+# check if we are started as root
+# only one of UID and USER must be set correctly
+#
+if test "$UID" != 0 -a "$USER" != root; then
+    echo "You must be root to start $0."
+    exit 1
+fi
+
+#
+# SuSEconfig sometimes sets the variable CHECK_NEWPACKAGE. If it is set
+# to false, we don't have to do anything.
+# 
+test "$CHECK_NEWPACKAGE" = false && exit 0
+
+test -f /etc/sysconfig/suseconfig || { echo "No /etc/sysconfig/suseconfig found." && exit 1 ; }
+. /etc/sysconfig/suseconfig
+
+# this skript only works in a running system.
+
+test -n "$ROOT" && exit 0
+
+perl -e 'exit 0' 2>/dev/null || { echo "Perl not found." && exit 0 ; }
+
+#
+# see if we may do any work
+#
+test -n "$CREATE_PERLLOCAL_POD" -a "$CREATE_PERLLOCAL_POD" = "yes" \
+	|| { echo "disabled in sysconfig/suseconfig" && exit 1 ; }
+	
+#
+# check if anything to add
+#
+PERLLOCAL_PATH=`perl -V:installarchlib | sed -e "s/.*='\(.*\)'.*/\1/"`
+
+NEEDED="false"
+
+if test -d /var/adm/perl-modules ; then 
+	if test /var/adm/perl-modules -nt $PERLLOCAL_PATH/perllocal.pod ; then
+		NEEDED="true"
+	elif test ! -f $PERLLOCAL_PATH/perllocal.pod ; then
+		NEEDED="true"
+	fi
+fi
+
+#
+# now call the working script
+#
+if "$NEEDED" = "true" ; then
+	if test -x /usr/lib/perl5/perllocal.SuSE ; then
+		/usr/lib/perl5/perllocal.SuSE
+		pod2man $PERLLOCAL_PATH/perllocal.pod | gzip > /usr/share/man/man3/perllocal.3pm.gz
+	else
+		echo "SuSEconfig.perl: /usr/lib/perl5/perllocal.SuSE not found!"
+	fi
+fi
+
+#
+# end of file SuSEconfig.perl
+#
+Index: SuSE/sysconfig.suseconfig-perl
+===================================================================
+--- /dev/null
+++ SuSE/sysconfig.suseconfig-perl
+@@ -0,0 +1,8 @@
+## Path:	System/SuSEconfig
+## Type:	yesno
+## Default:	yes
+## Config:	perl
+#
+# May SuSEconfig modify your perllocal.pod? (yes/no)
+#
+CREATE_PERLLOCAL_POD="yes"
+Index: utils/perlbug.PL
+===================================================================
+--- utils/perlbug.PL.orig
+++ utils/perlbug.PL
+@@ -1039,6 +1039,7 @@ sub _message_headers {
     $headers{'Cc'}         = $cc        if ($cc);
     $headers{'Message-Id'} = $messageid if ($messageid);
     $headers{'Reply-To'}   = $from      if ($from);
@ -516,3 +550,25 @@
     $headers{'From'}       = $from      if ($from);
     if ($have_attachment) {
         $headers{'MIME-Version'} = '1.0';
+Index: t/porting/customized.dat
+===================================================================
+--- t/porting/customized.dat.orig
+++ t/porting/customized.dat
+@@ -10,7 +10,7 @@ CPAN cpan/CPAN/scripts/cpan c43050c8c631
+ Digest cpan/Digest/Digest.pm 43f7f544cb11842b2f55c73e28930da50774e081
+ Digest::SHA cpan/Digest-SHA/lib/Digest/SHA.pm 5841fcf70f7290e07befdd16f05093664c618a96
+ Digest::SHA cpan/Digest-SHA/shasum f92faa37afc098e2a825e4ecda1097890492d957
+-Encode cpan/Encode/bin/enc2xs 7bbd4ca8d81e0189b87d703aa058b95a837b97d3
+Encode cpan/Encode/bin/enc2xs 91d5d4a16b97452ba23c1ba845572aada4ca0aa2
+ Encode cpan/Encode/bin/encguess f1e7a130995c4bad53bb6d3034dae625cfe61e32
+ Encode cpan/Encode/bin/piconv 80ea7f9afff580e41c4b29f5ab214ed378274b49
+ Encode cpan/Encode/bin/ucmlint 495862125269a60536b78fd0a7910d024c4d21fe
+@@ -165,7 +165,7 @@ bignum cpan/bignum/lib/bigrat.pm 7fccc9d
+ bignum cpan/bignum/lib/Math/BigFloat/Trace.pm a6b4b995e18f4083252e6dc72e9bef69671893dd
+ bignum cpan/bignum/lib/Math/BigInt/Trace.pm d9596963673760cae3eeeb752c1eeeec50bb2290
+ libnet cpan/libnet/lib/Net/Cmd.pm a44a10c939a4c35f923c4638054178c32f1d283a
+-libnet cpan/libnet/lib/Net/Config.pm 9bd49bf4de0dc438bceee0ef4baf8ba7a6633327
+libnet cpan/libnet/lib/Net/Config.pm 2167a2653b40c9f94e6d52574829532e62394a17
+ libnet cpan/libnet/lib/Net/Domain.pm 1bbed50f70fd1ff3e1cdf087b19a9349cddfaced
+ libnet cpan/libnet/lib/Net/FTP.pm 40dba553c8d44e1530daec2d07a6e50910401f2e
+ libnet cpan/libnet/lib/Net/FTP/A.pm c570b10730b168990034dcf9cb00e305a100f336
--- a/perl-5.24.0.tar.xz
+++ b/perl-5.24.0.tar.xz
@ -1,3 +0,0 @@
-version https://git-lfs.github.com/spec/v1
-oid sha256:a9a37c0860380ecd7b23aa06d61c20fc5bc6d95198029f3684c44a9d7e2952f2
-size 11483228
--- a/perl-5.24.1.tar.xz
+++ b/perl-5.24.1.tar.xz
@ -0,0 +1,3 @@
+version https://git-lfs.github.com/spec/v1
+oid sha256:03a77bac4505c270f1890ece75afc7d4b555090b41aa41ea478747e23b2afb3f
+size 11569284
--- a/perl-HiRes.t-timeout.diff
+++ b/perl-HiRes.t-timeout.diff
@ -1,5 +1,7 @@
--- ./dist/Time-HiRes/t/alarm.t.orig	2016-03-01 12:33:02.000000000 +0000
-+++ ./dist/Time-HiRes/t/alarm.t	2016-05-09 11:52:55.105232324 +0000
+Index: dist/Time-HiRes/t/alarm.t
+===================================================================
+--- dist/Time-HiRes/t/alarm.t.orig
+++ dist/Time-HiRes/t/alarm.t
@@ -7,7 +7,7 @@ BEGIN { require_ok "Time::HiRes"; }
 
 use Config;
@ -9,8 +11,10 @@
 
 my $xdefine = ''; 
 if (open(XDEFINE, "xdefine")) {
--- ./dist/Time-HiRes/t/clock.t.orig	2016-03-01 12:33:02.000000000 +0000
-+++ ./dist/Time-HiRes/t/clock.t	2016-05-09 11:52:55.106232324 +0000
+Index: dist/Time-HiRes/t/clock.t
+===================================================================
+--- dist/Time-HiRes/t/clock.t.orig
+++ dist/Time-HiRes/t/clock.t
@@ -28,7 +28,7 @@ note sprintf "have_clock           = %d"
 # completes fine with (say) 30% slosh, and fail otherwise.  If you do that,
 # consider changing over to test.pl at the same time.
@ -20,8 +24,10 @@
 
 SKIP: {
     skip "no clock_gettime", 1
--- ./dist/Time-HiRes/t/itimer.t.orig	2016-03-01 12:33:02.000000000 +0000
-+++ ./dist/Time-HiRes/t/itimer.t	2016-05-09 11:52:55.106232324 +0000
+Index: dist/Time-HiRes/t/itimer.t
+===================================================================
+--- dist/Time-HiRes/t/itimer.t.orig
+++ dist/Time-HiRes/t/itimer.t
@@ -28,7 +28,7 @@ BEGIN {
 use Test::More 0.82 tests => 2;
 use t::Watchdog;
@ -31,8 +37,10 @@
 
 my $i = 3;
 my $r = [Time::HiRes::gettimeofday()];
--- ./dist/Time-HiRes/t/usleep.t.orig	2016-03-01 12:33:02.000000000 +0000
-+++ ./dist/Time-HiRes/t/usleep.t	2016-05-09 11:52:55.107232323 +0000
+Index: dist/Time-HiRes/t/usleep.t
+===================================================================
+--- dist/Time-HiRes/t/usleep.t.orig
+++ dist/Time-HiRes/t/usleep.t
@@ -15,7 +15,7 @@ eval { Time::HiRes::usleep(-2) };
 like $@, qr/::usleep\(-2\): negative time not invented yet/,
 	"negative time error";
--- a/perl-incfix.diff
+++ b/perl-incfix.diff
@ -1,6 +1,8 @@
--- perl.c.orig	2013-09-03 15:36:39.767794693 +0000
-+++ perl.c	2013-09-03 15:39:05.334794435 +0000
-@@ -4423,11 +4423,13 @@ S_init_perllib(pTHX)
+Index: perl.c
+===================================================================
+--- perl.c.orig
+++ perl.c
+@@ -4544,11 +4544,13 @@ S_init_perllib(pTHX)
 #  endif
 #endif
 
@ -14,7 +16,7 @@
 
     if (!TAINTING_get) {
 #ifndef VMS
-@@ -4469,20 +4471,19 @@ S_init_perllib(pTHX)
+@@ -4590,20 +4592,19 @@ S_init_perllib(pTHX)
 #if defined(SITELIB_STEM) && defined(PERL_INC_VERSION_LIST)
     /* Search for version-specific dirs below here */
     S_incpush_use_sep(aTHX_ STR_WITH_LEN(SITELIB_STEM),
--- a/perl-netcmdutf8.diff
+++ b/perl-netcmdutf8.diff
@ -1,5 +1,7 @@
--- ./cpan/libnet/lib/Net/Cmd.pm.orig	2016-03-01 12:33:02.000000000 +0000
-+++ ./cpan/libnet/lib/Net/Cmd.pm	2016-05-09 11:50:16.976787779 +0000
+Index: cpan/libnet/lib/Net/Cmd.pm
+===================================================================
+--- cpan/libnet/lib/Net/Cmd.pm.orig
+++ cpan/libnet/lib/Net/Cmd.pm
@@ -290,6 +290,10 @@ sub command {
     $str = $cmd->toascii($str) if $tr;
     $str .= "\015\012";
@ -22,3 +24,16 @@
   return 1
     unless length($line);
 
+Index: t/porting/customized.dat
+===================================================================
+--- t/porting/customized.dat.orig
+++ t/porting/customized.dat
+@@ -164,7 +164,7 @@ bignum cpan/bignum/lib/bignum.pm e999973
+ bignum cpan/bignum/lib/bigrat.pm 7fccc9df30e43dbbae6e5ea91b26c8046545c9a9
+ bignum cpan/bignum/lib/Math/BigFloat/Trace.pm a6b4b995e18f4083252e6dc72e9bef69671893dd
+ bignum cpan/bignum/lib/Math/BigInt/Trace.pm d9596963673760cae3eeeb752c1eeeec50bb2290
+-libnet cpan/libnet/lib/Net/Cmd.pm a44a10c939a4c35f923c4638054178c32f1d283a
+libnet cpan/libnet/lib/Net/Cmd.pm 3f34ca6479008268714bd02962624d270d04a01e
+ libnet cpan/libnet/lib/Net/Config.pm 2167a2653b40c9f94e6d52574829532e62394a17
+ libnet cpan/libnet/lib/Net/Domain.pm 1bbed50f70fd1ff3e1cdf087b19a9349cddfaced
+ libnet cpan/libnet/lib/Net/FTP.pm 40dba553c8d44e1530daec2d07a6e50910401f2e
--- a/perl-nroff.diff
+++ b/perl-nroff.diff
@ -1,5 +1,7 @@
--- ./cpan/Pod-Perldoc/lib/Pod/Perldoc/ToMan.pm.orig	2014-06-02 14:40:44.776012754 +0000
-+++ ./cpan/Pod-Perldoc/lib/Pod/Perldoc/ToMan.pm	2014-06-02 14:41:31.621766916 +0000
+Index: cpan/Pod-Perldoc/lib/Pod/Perldoc/ToMan.pm
+===================================================================
+--- cpan/Pod-Perldoc/lib/Pod/Perldoc/ToMan.pm.orig
+++ cpan/Pod-Perldoc/lib/Pod/Perldoc/ToMan.pm
@@ -64,7 +64,7 @@ sub _roffer_candidates {
 	my( $self ) = @_;
 
--- a/perl-regexp-refoverflow.diff
+++ b/perl-regexp-refoverflow.diff
@ -1,6 +1,8 @@
--- ./regcomp.c.orig	2014-05-26 13:34:20.000000000 +0000
-+++ ./regcomp.c	2014-06-02 14:39:25.188429940 +0000
-@@ -10170,7 +10170,7 @@ S_reg(pTHX_ RExC_state_t *pRExC_state, I
+Index: regcomp.c
+===================================================================
+--- regcomp.c.orig
+++ regcomp.c
+@@ -10742,7 +10742,7 @@ S_reg(pTHX_ RExC_state_t *pRExC_state, I
 
                 ret = reg2Lanode(pRExC_state, GOSUB, num, RExC_recurse_count);
                 if (!SIZE_ONLY) {
--- a/perl-saverecontext.diff
+++ b/perl-saverecontext.diff
@ -1,6 +1,8 @@
--- ./regcomp.c.orig	2015-05-13 22:19:30.000000000 +0200
-+++ ./regcomp.c	2015-06-02 09:01:18.881114678 +0200
-@@ -17744,8 +17744,21 @@
+Index: regcomp.c
+===================================================================
+--- regcomp.c.orig
+++ regcomp.c
+@@ -19613,8 +19613,21 @@ Perl_save_re_context(pTHX)
 
         if (gvp) {
             GV * const gv = *gvp;
--- a/perl.changes
+++ b/perl.changes
@ -1,3 +1,43 @@
+-------------------------------------------------------------------
+Wed May 10 13:52:26 UTC 2017 - mpluskal@suse.com
+
+- Fix building with zlib-1.2.10 (RT#119762):
+  * Compress-Raw-Zlib-2.071-Adapt-tests-to-zlib-1.2.11.patch
+
+-------------------------------------------------------------------
+Wed May  3 13:51:56 UTC 2017 - coolo@suse.com
+
+- Update to perl-5.24.1
+
+  -Di switch is now required for PerlIO debugging output
+    Previously PerlIO debugging output would be sent to the file specified
+    by the "PERLIO_DEBUG" environment variable if perl wasn't running setuid
+    and the -T or -t switches hadn't been parsed yet.
+
+    If perl performed output at a point where it hadn't yet parsed its
+    switches this could result in perl creating or overwriting the file
+    named by "PERLIO_DEBUG" even when the -T switch had been supplied.
+
+    Perl now requires the -Di switch to produce PerlIO debugging output. By
+    default this is written to "stderr", but can optionally be redirected to
+    a file by setting the "PERLIO_DEBUG" environment variable.
+
+    If perl is running setuid or the -T switch was supplied "PERLIO_DEBUG"
+    is ignored and the debugging output is sent to "stderr" as for any other
+    -D switch.
+
+  Core modules and tools no longer search "." for optional modules
+    The tools and many modules supplied in core no longer search the default
+    current directory entry in @INC for optional modules. For example,
+    Storable will remove the final "." from @INC before trying to load
+    Log::Agent.
+
+    This prevents an attacker injecting an optional module into a process
+    run by another user where the current directory is writable by the
+    attacker, e.g. the /tmp directory.
+
+- Refresh patches
+
 -------------------------------------------------------------------
 Sun Jun 26 08:45:05 UTC 2016 - schwab@suse.de

--- a/perl.spec
+++ b/perl.spec
@ -1,7 +1,7 @@
 #
 # spec file for package perl
 #
-# Copyright (c) 2016 SUSE LINUX GmbH, Nuernberg, Germany.
+# Copyright (c) 2017 SUSE LINUX GmbH, Nuernberg, Germany.
 #
 # All modifications and additions to the file contributed by third parties
 # remain the property of their copyright owners, unless otherwise agreed
@ -21,9 +21,9 @@ Name:           perl
 Summary:        The Perl interpreter
 License:        Artistic-1.0 or GPL-2.0+
 Group:          Development/Languages/Perl
-Version:        5.24.0
+Version:        5.24.1
 Release:        0
-%define pversion 5.24.0
+%define pversion 5.24.1
 Url:            http://www.perl.org/
 Source:         http://www.cpan.org/src/5.0/perl-%{version}.tar.xz
 Source1:        %name-rpmlintrc
@ -43,6 +43,8 @@ Patch9:         perl-incfix.diff
 Patch11:        perl-5.18.2-overflow.diff
 # PATCH-FIX-UPSTREAM Fix a warning in cop.h , upstream commit f2b9631d5d19d2b71c1776e1193173d13f3620bf
 Patch12:        perl-avoid-warnings.patch
+# PATCH-FIX-UPSTREAM RT#119762
+Patch13:        Compress-Raw-Zlib-2.071-Adapt-tests-to-zlib-1.2.11.patch
 BuildRoot:      %{_tmppath}/%{name}-%{version}-build
 PreReq:         perl-base = %version
 #PreReq:         %fillup_prereq
@ -185,6 +187,7 @@ cp -p %{S:3} .
 %patch9
 %patch11
 %patch12 -p1
+%patch13

 %build
 cp -a lib savelib