From 4663a001e9ea8d445d43c66cc09b5ca73afe8e12 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= Date: Fri, 11 Aug 2023 09:54:43 +0200 Subject: [PATCH] 0.801 bump --- .gitignore | 1 + ...0.800-Fix-handling-VERSION-arguments.patch | 59 ------------------- perl-Object-Pad.spec | 7 ++- sources | 2 +- 4 files changed, 6 insertions(+), 63 deletions(-) delete mode 100644 Object-Pad-0.800-Fix-handling-VERSION-arguments.patch diff --git a/.gitignore b/.gitignore index ee9e4bc..35f46dc 100644 --- a/.gitignore +++ b/.gitignore @@ -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 diff --git a/Object-Pad-0.800-Fix-handling-VERSION-arguments.patch b/Object-Pad-0.800-Fix-handling-VERSION-arguments.patch deleted file mode 100644 index 97b0059..0000000 --- a/Object-Pad-0.800-Fix-handling-VERSION-arguments.patch +++ /dev/null @@ -1,59 +0,0 @@ -From ee42818211139a5343bd1cc4d65a72a9781a91c7 Mon Sep 17 00:00:00 2001 -From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= -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ř ---- - 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 - diff --git a/perl-Object-Pad.spec b/perl-Object-Pad.spec index d5a284f..f7c2b2b 100644 --- a/perl-Object-Pad.spec +++ b/perl-Object-Pad.spec @@ -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 - 0.801-1 +- 0.801 bump + * Thu Aug 10 2023 Petr Pisar - 0.800-1 - 0.800 bump diff --git a/sources b/sources index a7f196a..1787ab8 100644 --- a/sources +++ b/sources @@ -1 +1 @@ -SHA512 (Object-Pad-0.800.tar.gz) = dd064e41297796cc456a6d508a4653b524110f4aac3231edde97eeec23d47fcd429afc8b645a053a09518243b50b5e8d3d1ee5a9fc6b91f8cf44fba25a328bab +SHA512 (Object-Pad-0.801.tar.gz) = 5bb2d2e6e76cd2a4fd19ef58e750536e5e40393713264038638c2b1496d2d231cc72be87b231988c50b9e64c84d71e5a706d2ae03f1ac9828fbd9041d0a51acf