73e2f4545b
- 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
43 lines
1.3 KiB
Diff
43 lines
1.3 KiB
Diff
Index: perl.c
|
|
===================================================================
|
|
--- perl.c.orig
|
|
+++ perl.c
|
|
@@ -4544,11 +4544,13 @@ S_init_perllib(pTHX)
|
|
# endif
|
|
#endif
|
|
|
|
+#if 0
|
|
#ifdef PERL_OTHERLIBDIRS
|
|
S_incpush_use_sep(aTHX_ STR_WITH_LEN(PERL_OTHERLIBDIRS),
|
|
INCPUSH_ADD_VERSIONED_SUB_DIRS|INCPUSH_NOT_BASEDIR
|
|
|INCPUSH_CAN_RELOCATE);
|
|
#endif
|
|
+#endif
|
|
|
|
if (!TAINTING_get) {
|
|
#ifndef VMS
|
|
@@ -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),
|
|
- INCPUSH_ADD_OLD_VERS|INCPUSH_CAN_RELOCATE);
|
|
+ INCPUSH_ADD_OLD_VERS|INCPUSH_NOT_BASEDIR|INCPUSH_CAN_RELOCATE);
|
|
#endif
|
|
|
|
|
|
#if defined(PERL_VENDORLIB_STEM) && defined(PERL_INC_VERSION_LIST)
|
|
/* Search for version-specific dirs below here */
|
|
S_incpush_use_sep(aTHX_ STR_WITH_LEN(PERL_VENDORLIB_STEM),
|
|
- INCPUSH_ADD_OLD_VERS|INCPUSH_CAN_RELOCATE);
|
|
+ INCPUSH_ADD_OLD_VERS|INCPUSH_NOT_BASEDIR|INCPUSH_CAN_RELOCATE);
|
|
#endif
|
|
|
|
#ifdef PERL_OTHERLIBDIRS
|
|
S_incpush_use_sep(aTHX_ STR_WITH_LEN(PERL_OTHERLIBDIRS),
|
|
- INCPUSH_ADD_OLD_VERS|INCPUSH_ADD_ARCHONLY_SUB_DIRS
|
|
- |INCPUSH_CAN_RELOCATE);
|
|
+ INCPUSH_CAN_RELOCATE);
|
|
#endif
|
|
#endif /* !PERL_IS_MINIPERL */
|
|
|