From a3319b99838ced745db2a3f0a0b19ea7d48510b8 Mon Sep 17 00:00:00 2001 From: Thibault DUPONCHELLE Date: Wed, 4 Dec 2024 17:53:13 +0100 Subject: [PATCH] cpan/parent - Update to version 0.243 0.243 2024-11-27 . Reinstate test for apostrophe as package separator, as the package separator is allowed again . No code change, only tests have been amended co-authored-by: Eric Herman co-authored-by: Philippe Bruhat (BooK) --- Porting/Maintainers.pl | 4 ++-- cpan/parent/lib/parent.pm | 2 +- cpan/parent/t/compile-time-file.t | 17 +++++++---------- 3 files changed, 10 insertions(+), 13 deletions(-) diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index b248535203ab..bfe8f19744d3 100755 --- a/Porting/Maintainers.pl +++ b/Porting/Maintainers.pl @@ -885,8 +885,8 @@ package Maintainers; }, 'parent' => { - 'DISTRIBUTION' => 'CORION/parent-0.242.tar.gz', - 'SYNCINFO' => 'jkeenan on Wed Aug 14 21:41:51 2024', + 'DISTRIBUTION' => 'CORION/parent-0.243.tar.gz', + 'SYNCINFO' => 'tib on Wed Dec 4 17:52:22 2024', 'FILES' => q[cpan/parent], 'EXCLUDED' => [ qr{^xt} diff --git a/cpan/parent/lib/parent.pm b/cpan/parent/lib/parent.pm index 09d89cffac11..a3c207730a9a 100644 --- a/cpan/parent/lib/parent.pm +++ b/cpan/parent/lib/parent.pm @@ -1,7 +1,7 @@ package parent; use strict; -our $VERSION = '0.242_001'; +our $VERSION = '0.243'; sub import { my $class = shift; diff --git a/cpan/parent/t/compile-time-file.t b/cpan/parent/t/compile-time-file.t index 0fc2ad9d4d75..bff886155297 100644 --- a/cpan/parent/t/compile-time-file.t +++ b/cpan/parent/t/compile-time-file.t @@ -24,7 +24,7 @@ use lib 't/lib'; { package Child3; - use if $] != 5.041_003, parent => "Dummy'Outside"; + use parent "Dummy'Outside"; } my $obj = {}; @@ -39,12 +39,9 @@ isa_ok $obj, 'Dummy::InlineChild'; can_ok $obj, 'exclaim'; is $obj->exclaim, "I CAN FROM Dummy::InlineChild", 'Inheritance is set up correctly for inlined classes'; -SKIP: -{ - skip "No ' in names in 5.041_003", 3 if $] == 5.041_003; - $obj = {}; - bless $obj, 'Child3'; - isa_ok $obj, 'Dummy::Outside'; - can_ok $obj, 'exclaim'; - is $obj->exclaim, "I CAN FROM Dummy::Outside", "Inheritance is set up correctly for classes inherited from via '"; -} +$obj = {}; +bless $obj, 'Child3'; +isa_ok $obj, 'Dummy::Outside'; +can_ok $obj, 'exclaim'; +is $obj->exclaim, "I CAN FROM Dummy::Outside", "Inheritance is set up correctly for classes inherited from via '"; +