0.801 bump

This commit is contained in:
Petr Písař 2023-08-11 09:54:43 +02:00
parent f27bfa37c8
commit 4663a001e9
4 changed files with 6 additions and 63 deletions

1
.gitignore vendored
View File

@ -42,3 +42,4 @@
/Object-Pad-0.78.tar.gz /Object-Pad-0.78.tar.gz
/Object-Pad-0.79.tar.gz /Object-Pad-0.79.tar.gz
/Object-Pad-0.800.tar.gz /Object-Pad-0.800.tar.gz
/Object-Pad-0.801.tar.gz

View File

@ -1,59 +0,0 @@
From ee42818211139a5343bd1cc4d65a72a9781a91c7 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
Date: Thu, 10 Aug 2023 11:11:35 +0200
Subject: [PATCH] Fix handling VERSION() arguments
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
Since 0.800 release, some tests were skipped:
t/75metafunctions.t ............. ok
t/80async-method.t .............. skipped: Object::Pad >= 0.73 is not available
t/80dynamically+Object-Pad.t .... skipped: Object::Pad >= 0.73 is not available
t/81async-method+dynamically.t .. skipped: Object::Pad >= 0.73 is not available
t/91rt141483.t .................. ok
The cause was that newly redefined VERSION() method did not return
SUPER::VERSION() value.
The method similarly failed when retrieving the version with an
Object::Pad->VERISION() call.
This patch fixes it.
CPAN RT#149357
Signed-off-by: Petr Písař <ppisar@redhat.com>
---
lib/Object/Pad.pm | 12 ++++++++----
1 file changed, 8 insertions(+), 4 deletions(-)
diff --git a/lib/Object/Pad.pm b/lib/Object/Pad.pm
index fc9d76c..70c30fb 100644
--- a/lib/Object/Pad.pm
+++ b/lib/Object/Pad.pm
@@ -1205,12 +1205,16 @@ sub VERSION
my $pkg = shift;
my ( $ver ) = @_;
- $pkg->SUPER::VERSION( $ver );
+ my $ret = $pkg->SUPER::VERSION( @_ );
- $ver = version->parse( $ver );
+ if ( defined $ver ) {
+ $ver = version->parse( $ver );
- # Only bother to store it if it's >= v0.800
- $^H{"Object::Pad/imported-version"} = $ver->numify if $ver ge v0.800;
+ # Only bother to store it if it's >= v0.800
+ $^H{"Object::Pad/imported-version"} = $ver->numify if $ver ge v0.800;
+ }
+
+ $ret;
}
sub import
--
2.41.0

View File

@ -4,15 +4,13 @@
%bcond_without perl_Object_Pad_enables_optional_test %bcond_without perl_Object_Pad_enables_optional_test
Name: perl-Object-Pad Name: perl-Object-Pad
Version: 0.800 Version: 0.801
Release: 1%{dist} Release: 1%{dist}
Summary: Simple syntax for lexical slot-based objects Summary: Simple syntax for lexical slot-based objects
License: GPL-1.0-or-later OR Artistic-1.0-Perl License: GPL-1.0-or-later OR Artistic-1.0-Perl
URL: https://metacpan.org/release/Object-Pad URL: https://metacpan.org/release/Object-Pad
Source0: https://cpan.metacpan.org/authors/id/P/PE/PEVANS/Object-Pad-%{version}.tar.gz Source0: https://cpan.metacpan.org/authors/id/P/PE/PEVANS/Object-Pad-%{version}.tar.gz
Source1: macros.perl-Object-Pad Source1: macros.perl-Object-Pad
# Fix VERSION method, bug #2230553, CPAN RT#149357, proposed to an upstream
Patch0: Object-Pad-0.800-Fix-handling-VERSION-arguments.patch
BuildRequires: coreutils BuildRequires: coreutils
BuildRequires: perl-devel BuildRequires: perl-devel
BuildRequires: perl-generators BuildRequires: perl-generators
@ -201,6 +199,9 @@ export HARNESS_OPTIONS=j$(perl -e 'if ($ARGV[0] =~ /.*-j([0-9][0-9]*).*/) {print
%{_libexecdir}/%{name} %{_libexecdir}/%{name}
%changelog %changelog
* Fri Aug 11 2023 Petr Pisar <ppisar@redhat.com> - 0.801-1
- 0.801 bump
* Thu Aug 10 2023 Petr Pisar <ppisar@redhat.com> - 0.800-1 * Thu Aug 10 2023 Petr Pisar <ppisar@redhat.com> - 0.800-1
- 0.800 bump - 0.800 bump

View File

@ -1 +1 @@
SHA512 (Object-Pad-0.800.tar.gz) = dd064e41297796cc456a6d508a4653b524110f4aac3231edde97eeec23d47fcd429afc8b645a053a09518243b50b5e8d3d1ee5a9fc6b91f8cf44fba25a328bab SHA512 (Object-Pad-0.801.tar.gz) = 5bb2d2e6e76cd2a4fd19ef58e750536e5e40393713264038638c2b1496d2d231cc72be87b231988c50b9e64c84d71e5a706d2ae03f1ac9828fbd9041d0a51acf