parent: adjust for ' in names reinstatement

Author: tonycoz

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_003, parent => "Dummy'Outside";
 }
 
 my $obj = {};
@@ -39,9 +39,12 @@ 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';
 
-$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 '";
-
+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 '";
+}