a47e3f1af9
- 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
46 lines
1.1 KiB
Diff
46 lines
1.1 KiB
Diff
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
|