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.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
|
||||||
|
@ -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
|
%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
|
||||||
|
|
||||||
|
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