From acb95342e998782a3db54a8d0181d97fe40e47ab Mon Sep 17 00:00:00 2001
From: Tony Cook <tony@develop-help.com>
Date: Wed, 19 Jun 2024 15:34:41 +1000
Subject: [PATCH] parent: don't test ' in names from 5.41.

---
 cpan/parent/lib/parent.pm         | 2 +-
 cpan/parent/t/compile-time-file.t | 6 +++++-
 2 files changed, 6 insertions(+), 2 deletions(-)

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 '";
 
+}