diff --git a/cpan/parent/lib/parent.pm b/cpan/parent/lib/parent.pm index 483aa3e025718..e6cdf3846cc53 100644 --- a/cpan/parent/lib/parent.pm +++ b/cpan/parent/lib/parent.pm @@ -1,7 +1,7 @@ package parent; use strict; -our $VERSION = '0.241'; +our $VERSION = '0.241_001'; sub import { my $class = shift; diff --git a/cpan/parent/t/compile-time-file.t b/cpan/parent/t/compile-time-file.t index bff886155297f..0e42c69dda548 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 parent "Dummy'Outside"; + use if $] < 5.041, parent => "Dummy'Outside"; } my $obj = {}; @@ -39,9 +39,13 @@ 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 from 5.041", 3 if $] >= 5.041; $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 '"; +}