#
# Conditional build:
-%bcond_without tests # do not perform "make test"
+%bcond_without tests # unit tests
%define pdir DBM
%define pnam Deep
Summary: DBM::Deep - A pure Perl multi-level hash/array DBM
Summary(pl.UTF-8): DBM::Deep - czysto perlowy moduĊ DBM dla wielopoziomowych haszy/tablic
Name: perl-DBM-Deep
-Version: 2.0016
-Release: 2
+Version: 2.0017
+Release: 1
# same as perl
License: GPL v1+ or Artistic
Group: Development/Languages/Perl
-Source0: http://www.cpan.org/modules/by-module/DBM/%{pdir}-%{pnam}-%{version}.tar.gz
-# Source0-md5: cb8817ddd1fecc81ae2d47f812fd1f0e
-Patch0: perl5.38.patch
-URL: https://metacpan.org/release/DBM-Deep
+Source0: https://www.cpan.org/modules/by-module/DBM/%{pdir}-%{pnam}-%{version}.tar.gz
+# Source0-md5: 92e950e8b99ee0c0d9a7fdefb36dc7d1
+URL: https://metacpan.org/dist/DBM-Deep
BuildRequires: perl-Module-Build >= 0.28
BuildRequires: perl-devel >= 1:5.8.4
BuildRequires: rpm-perlprov >= 4.1-13
%prep
%setup -q -n %{pdir}-%{pnam}-%{version}
-%patch0 -p1
%build
%{__perl} Makefile.PL \
+++ /dev/null
-From f6d5f18703a39be52ee04df5234f6ebd7ba1b9b7 Mon Sep 17 00:00:00 2001
-From: Yves Orton <demerphq@gmail.com>
-Date: Thu, 9 Feb 2023 17:02:35 +0100
-Subject: [PATCH] lib/DBM/Deep.pm - apostrophe as package separator deprecated
- in 5.37.8
-
-In 5.40.0 we will remove support for apostrophe as a package separator
-entirely, and in 5.37.8 we marked it as deprecated so it will warn.
-
-This patch removes its use from lib/DBM/Deep.pm and bumps the version
-to 2.0017
----
- lib/DBM/Deep.pm | 10 +++++-----
- lib/DBM/Deep.pod | 2 +-
- 2 files changed, 6 insertions(+), 6 deletions(-)
-
-diff --git a/lib/DBM/Deep.pm b/lib/DBM/Deep.pm
-index 8a8ead7..61ff547 100644
---- a/lib/DBM/Deep.pm
-+++ b/lib/DBM/Deep.pm
-@@ -647,13 +647,13 @@ sub _warnif {
- # to avoid this hack. warnings.pm did not allow us to specify
- # exactly the call frame we want, so we have to look at the bitmask
- # ourselves.
-- if( vec $bitmask, $warnings'Offsets{$_[0]}, 1,
-- || vec $bitmask, $warnings'Offsets{all}, 1,
-+ if( vec $bitmask, $warnings::Offsets{$_[0]}, 1,
-+ || vec $bitmask, $warnings::Offsets{all}, 1,
- ) {
- my $msg = $_[1] =~ /\n\z/ ? $_[1] : "$_[1] at $file line $line.\n";
- die $msg
-- if vec $bitmask, $warnings'Offsets{$_[0]}+1, 1,
-- || vec $bitmask, $warnings'Offsets{all}+1, 1;
-+ if vec $bitmask, $warnings::Offsets{$_[0]}+1, 1,
-+ || vec $bitmask, $warnings::Offsets{all}+1, 1;
- warn $msg;
- }
- }