0.801 bump
This commit is contained in:
parent
f27bfa37c8
commit
4663a001e9
1
.gitignore
vendored
1
.gitignore
vendored
@ -42,3 +42,4 @@
|
||||
/Object-Pad-0.78.tar.gz
|
||||
/Object-Pad-0.79.tar.gz
|
||||
/Object-Pad-0.800.tar.gz
|
||||
/Object-Pad-0.801.tar.gz
|
||||
|
@ -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
|
||||
|
@ -4,15 +4,13 @@
|
||||
%bcond_without perl_Object_Pad_enables_optional_test
|
||||
|
||||
Name: perl-Object-Pad
|
||||
Version: 0.800
|
||||
Version: 0.801
|
||||
Release: 1%{dist}
|
||||
Summary: Simple syntax for lexical slot-based objects
|
||||
License: GPL-1.0-or-later OR Artistic-1.0-Perl
|
||||
URL: https://metacpan.org/release/Object-Pad
|
||||
Source0: https://cpan.metacpan.org/authors/id/P/PE/PEVANS/Object-Pad-%{version}.tar.gz
|
||||
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: perl-devel
|
||||
BuildRequires: perl-generators
|
||||
@ -201,6 +199,9 @@ export HARNESS_OPTIONS=j$(perl -e 'if ($ARGV[0] =~ /.*-j([0-9][0-9]*).*/) {print
|
||||
%{_libexecdir}/%{name}
|
||||
|
||||
%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
|
||||
- 0.800 bump
|
||||
|
||||
|
2
sources
2
sources
@ -1 +1 @@
|
||||
SHA512 (Object-Pad-0.800.tar.gz) = dd064e41297796cc456a6d508a4653b524110f4aac3231edde97eeec23d47fcd429afc8b645a053a09518243b50b5e8d3d1ee5a9fc6b91f8cf44fba25a328bab
|
||||
SHA512 (Object-Pad-0.801.tar.gz) = 5bb2d2e6e76cd2a4fd19ef58e750536e5e40393713264038638c2b1496d2d231cc72be87b231988c50b9e64c84d71e5a706d2ae03f1ac9828fbd9041d0a51acf
|
||||
|
Loading…
Reference in New Issue
Block a user