+++ /dev/null
-From aacd2398e766500cb5d83c4d76b642fcf31d997a Mon Sep 17 00:00:00 2001
-From: Sergey Poznyakoff <gray@gnu.org>
-Date: Wed, 23 Jun 2021 10:26:50 +0300
-Subject: [PATCH 1/3] Fix GDBM_File to compile with version 1.20 and earlier
-
-* ext/GDBM_File/GDBM_File.xs (ITEM_NOT_FOUND): Define conditionally,
-depending on the GDBM_VERSION_MAJOR and GDBM_VERSION_MINOR.
-Don't assume GDBM_ITEM_NOT_FOUND is a define (it isn't since
-gdbm commit d3e27957).
----
- ext/GDBM_File/GDBM_File.xs | 11 +++++------
- 1 file changed, 5 insertions(+), 6 deletions(-)
-
-diff --git a/ext/GDBM_File/GDBM_File.xs b/ext/GDBM_File/GDBM_File.xs
-index cd0bb6f26f..494c2889ca 100644
---- a/ext/GDBM_File/GDBM_File.xs
-+++ b/ext/GDBM_File/GDBM_File.xs
-@@ -145,14 +145,13 @@ output_datum(pTHX_ SV *arg, char *str, int size)
- #define gdbm_setopt(db,optflag,optval,optlen) not_here("gdbm_setopt")
- #endif
-
--#ifndef GDBM_ITEM_NOT_FOUND
--# define GDBM_ITEM_NOT_FOUND GDBM_NO_ERROR
--#endif
--
-+#if GDBM_VERSION_MAJOR == 1 && GDBM_VERSION_MINOR < 13
- /* Prior to 1.13, gdbm_fetch family functions set gdbm_errno to GDBM_NO_ERROR
- if the requested key did not exist */
--#define ITEM_NOT_FOUND() \
-- (gdbm_errno == GDBM_ITEM_NOT_FOUND || gdbm_errno == GDBM_NO_ERROR)
-+# define ITEM_NOT_FOUND() (gdbm_errno == GDBM_NO_ERROR)
-+#else
-+# define ITEM_NOT_FOUND() (gdbm_errno == GDBM_ITEM_NOT_FOUND)
-+#endif
-
- #define CHECKDB(db) do { \
- if (!db->dbp) { \
---
-2.31.1
-
+++ /dev/null
-From 5bc1e5fdd87aa205011512cd1e6cc655bcf677fd Mon Sep 17 00:00:00 2001
-From: Sergey Poznyakoff <gray@gnu.org>
-Date: Wed, 23 Jun 2021 15:31:42 +0300
-Subject: [PATCH 3/3] Fix definition of ITEM_NOT_FOUND for pre-1.13 versions.
-
----
- ext/GDBM_File/GDBM_File.xs | 9 +++++----
- 1 file changed, 5 insertions(+), 4 deletions(-)
-
-diff --git a/ext/GDBM_File/GDBM_File.xs b/ext/GDBM_File/GDBM_File.xs
-index 494c2889ca..0125b5dcac 100644
---- a/ext/GDBM_File/GDBM_File.xs
-+++ b/ext/GDBM_File/GDBM_File.xs
-@@ -145,10 +145,11 @@ output_datum(pTHX_ SV *arg, char *str, int size)
- #define gdbm_setopt(db,optflag,optval,optlen) not_here("gdbm_setopt")
- #endif
-
--#if GDBM_VERSION_MAJOR == 1 && GDBM_VERSION_MINOR < 13
--/* Prior to 1.13, gdbm_fetch family functions set gdbm_errno to GDBM_NO_ERROR
-- if the requested key did not exist */
--# define ITEM_NOT_FOUND() (gdbm_errno == GDBM_NO_ERROR)
-+#if GDBM_VERSION_MAJOR == 1 && GDBM_VERSION_MINOR < 13
-+/* Prior to 1.13, only gdbm_fetch set GDBM_ITEM_NOT_FOUND if the requested
-+ key did not exist. Other similar functions would set GDBM_NO_ERROR instead.
-+ The GDBM_ITEM_NOT_FOUND existed as early as in 1.7.3 */
-+# define ITEM_NOT_FOUND() (gdbm_errno == GDBM_NO_ERROR || gdbm_errno == GDBM_ITEM_NOT_FOUND)
- #else
- # define ITEM_NOT_FOUND() (gdbm_errno == GDBM_ITEM_NOT_FOUND)
- #endif
---
-2.31.1
-
+++ /dev/null
-From ea57297a58b8f10ab885c19eec48ea076116cc1f Mon Sep 17 00:00:00 2001
-From: Sergey Poznyakoff <gray@gnu.org>
-Date: Wed, 23 Jun 2021 14:24:47 +0300
-Subject: [PATCH 2/3] Raise version number in ext/GDBM_File/GDBM_File.pm
-
----
- ext/GDBM_File/GDBM_File.pm | 2 +-
- 1 file changed, 1 insertion(+), 1 deletion(-)
-
-diff --git a/ext/GDBM_File/GDBM_File.pm b/ext/GDBM_File/GDBM_File.pm
-index d837536f80..cb08d091b8 100644
---- a/ext/GDBM_File/GDBM_File.pm
-+++ b/ext/GDBM_File/GDBM_File.pm
-@@ -363,7 +363,7 @@ require XSLoader;
- );
-
- # This module isn't dual life, so no need for dev version numbers.
--$VERSION = '1.19';
-+$VERSION = '1.20';
-
- XSLoader::load();
-
---
-2.31.1
-
-# Module versions from Perl 5.34.0 distribution.
+# Module versions from Perl 5.34.1 distribution.
Archive::Tar = 2.38
Attribute::Handlers = 1.01
CPAN = 2.28
Digest = 1.19
Digest::MD5 = 2.58
Digest::SHA = 6.02
-Encode = 3.08
+Encode = 3.0801
ExtUtils::CBuilder = 0.280236
ExtUtils::Command = 7.62
ExtUtils::Embed = 1.35
File::Temp = 0.2311
Filter::Simple = 0.96
FindBin = 1.52
-GDBM_File = 1.20
+GDBM_File = 1.19_01
Getopt::Long = 2.52
Hash::Util = 0.25
I18N::LangTags = 0.45
Math::Complex = 1.5902
Math::Trig = 1.23
Memoize = 1.03_01
-Module::CoreList = 5.20210520
+Module::CoreList = 5.20220313
Module::Load = 0.36
Module::Load::Conditional = 0.74
Module::Metadata = 1.000037
-# Non-straight named module versions from Perl 5.34.0 distribution.
+# Non-straight named module versions from Perl 5.34.1 distribution.
IO-Compress IO::Compress::Base = 2.102
PathTools File::Spec = 3.80
Scalar-List-Utils List::Util = 1.55
%define perl_mod2verrel() %([ -f %{SOURCE4} ] && awk -vp=%1 -vr=%2 '$1 == p { print $4"-"r }' %{SOURCE4} || echo ERROR)
%define perl_mod2version() %([ -f %{SOURCE4} ] && awk -vp=%1 '$1 == p { m=$2; printf("perl-%s = %s\\n", p, $4)}END{if (!m) printf("# Error looking up [%s]\\n", p) }' %{SOURCE4} || echo ERROR)
-%define ver 5.34.0
-%define rel 2
+%define ver 5.34.1
+%define rel 1
Summary: Practical Extraction and Report Language (Perl)
Summary(cs.UTF-8): Programovací jazyk Perl
Summary(da.UTF-8): Programmeringssproget Perl
License: GPL v1+ or Artistic
Group: Development/Languages/Perl
Source0: https://www.cpan.org/src/5.0/%{name}-%{ver}.tar.xz
-# Source0-md5: df7ecb0653440b26dc951ad9dbfab517
+# Source0-md5: 7d2ece7f50775ea1ff739831935a24bd
Source1: http://www.mif.pg.gda.pl/homepages/ankry/man-PLD/%{name}-non-english-man-pages.tar.bz2
# Source1-md5: de47d7893f49ad7f41ba69c78511c0db
Source2: %{name}.prov
Patch7: %{name}-t-syslog.patch
Patch8: %{name}-Destroy-GDBM-NDBM-ODBM-SDBM-_File-objects.patch
Patch10: %{name}-invalid-void-use.patch
-Patch11: Fix-GDBM_File-to-compile-with-version-1.20-and-earli.patch
-Patch12: Raise-version-number-in-ext-GDBM_File-GDBM_File.pm.patch
-Patch13: Fix-definition-of-ITEM_NOT_FOUND-for-pre-1.13-versio.patch
URL: http://dev.perl.org/perl5/
%ifarch ppc
# gcc 3.3.x miscompiles pp_hot.c
Summary(pl.UTF-8): GDBM_File - dostęp do biblioteki gdbm w Perlu
Version: %perl_modver GDBM_File
Release: %{ver}.%{rel}
-Epoch: 3
+Epoch: 4
Group: Libraries
Requires: %{name}-base = 1:%{ver}-%{rel}
%patch7 -p1
%patch8 -p1
%patch10 -p1
-%patch11 -p1
-%patch12 -p1
-%patch13 -p1
cat > runperl <<'EOF'
#!/bin/sh