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
This commit is contained in:
committed by
Git OBS Bridge
parent
9ea3534c08
commit
73e2f4545b
@@ -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),
|
||||
|
Reference in New Issue
Block a user