Michael Schröder
35bc659799
* 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
OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl?expand=0&rev=182
11 lines
445 B
Diff
11 lines
445 B
Diff
--- ./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', '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")
|
|
or diag("\$! = $!");
|