perl/perl-gdbm-test-no-mmap.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("\$! = $!");
- update to perl-5.30.1 * 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 2019-11-19 15:17:02 +01:00			`--- ./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,`
- fix testing fatal errors in gdbm new patch: perl-gdbm-test-no-mmap.diff - fix perl no longer setting $^X if /proc is not mounted new patch: perl-revert-caretx.diff OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl?expand=0&rev=173 2018-09-28 16:08:18 +02:00			`umask(0);`
			`my %h;`
- update to perl-5.30.1 * 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 2019-11-19 15:17:02 +01:00			`isa_ok(tie(%h, 'GDBM_File', 'fatal_dbmx', GDBM_WRCREAT, 0640), 'GDBM_File');`
- fix testing fatal errors in gdbm new patch: perl-gdbm-test-no-mmap.diff - fix perl no longer setting $^X if /proc is not mounted new patch: perl-revert-caretx.diff OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl?expand=0&rev=173 2018-09-28 16:08:18 +02:00			`+tied(%h)->setopt(7, 0, length(pack("i", 0))); # turn off mmap mode`

			`isnt((open $fh, "<&=$fileno"), undef, "dup fileno $fileno")`
			`or diag("\$! = $!");`