feature 'apostrophe_as_package_separator'

MANIFEST

@@ -6105,6 +6105,7 @@ t/lib/Devel/switchd_empty.pm		Module for t/run/switchd.t
 t/lib/Devel/switchd_goto.pm		Module for t/run/switchd.t
 t/lib/Dies.pm				For test case in op/require_errors.t
 t/lib/feature/api			Test API for checking features enabled/disabled
+t/lib/feature/apos_as_pack_sep		Tests for enabling/disabling apostrophe_as_package_separator feature
 t/lib/feature/bareword_filehandles	Tests for enabling/disabling bareword_filehandles feature
 t/lib/feature/bits			Tests for feature bit handling
 t/lib/feature/bundle			Tests for feature bundles

cpan/Scalar-List-Utils/ListUtil.xs

@@ -1951,10 +1951,8 @@ PREINIT:
     STRLEN namelen;
     const char* nameptr = SvPV(name, namelen);
     int utf8flag = SvUTF8(name);
-#if PERL_VERSION_LT(5, 41, 3)
     int quotes_seen = 0;
     bool need_subst = FALSE;
-#endif
 PPCODE:
     if (!SvROK(sub) && SvGMAGICAL(sub))
         mg_get(sub);
@@ -1977,23 +1975,18 @@ PPCODE:
         if (s > nameptr && *s == ':' && s[-1] == ':') {
             end = s - 1;
             begin = ++s;
-#if PERL_VERSION_LT(5, 41, 3)
             if (quotes_seen)
                 need_subst = TRUE;
-#endif
         }
-#if PERL_VERSION_LT(5, 41, 3)
         else if (s > nameptr && *s != '\0' && s[-1] == '\'') {
             end = s - 1;
             begin = s;
             if (quotes_seen++)
                 need_subst = TRUE;
         }
-#endif
     }
     s--;
     if (end) {
-#if PERL_VERSION_LT(5, 41, 3)
         SV* tmp;
         if (need_subst) {
             STRLEN length = end - nameptr + quotes_seen - (*end == '\'' ? 1 : 0);
@@ -2013,7 +2006,6 @@ PPCODE:
             stash = gv_stashpvn(left, length, GV_ADD | utf8flag);
         }
         else
-#endif
             stash = gv_stashpvn(nameptr, end - nameptr, GV_ADD | utf8flag);
         nameptr = begin;
         namelen -= begin - nameptr;

cpan/Scalar-List-Utils/lib/List/Util.pm

@@ -16,7 +16,7 @@ our @EXPORT_OK  = qw(
   sample shuffle uniq uniqint uniqnum uniqstr zip zip_longest zip_shortest mesh mesh_longest mesh_shortest
   head tail pairs unpairs pairkeys pairvalues pairmap pairgrep pairfirst
 );
-our $VERSION    = "1.68";
+our $VERSION    = "1.68_01";
 our $XS_VERSION = $VERSION;
 $VERSION =~ tr/_//d;
 

cpan/Scalar-List-Utils/lib/List/Util/XS.pm

@@ -3,7 +3,7 @@ use strict;
 use warnings;
 use List::Util;
 
-our $VERSION = "1.68";       # FIXUP
+our $VERSION = "1.68_01";       # FIXUP
 $VERSION =~ tr/_//d;         # FIXUP
 
 1;

cpan/Scalar-List-Utils/lib/Scalar/Util.pm

@@ -17,7 +17,7 @@ our @EXPORT_OK = qw(
   dualvar isdual isvstring looks_like_number openhandle readonly set_prototype
   tainted
 );
-our $VERSION    = "1.68";
+our $VERSION    = "1.68_01";
 $VERSION =~ tr/_//d;
 
 require List::Util; # List::Util loads the XS

cpan/Scalar-List-Utils/lib/Sub/Util.pm

@@ -15,7 +15,7 @@ our @EXPORT_OK = qw(
   subname set_subname
 );
 
-our $VERSION    = "1.68";
+our $VERSION    = "1.68_01";
 $VERSION =~ tr/_//d;
 
 require List::Util; # as it has the XS

cpan/Scalar-List-Utils/t/exotic_names.t

@@ -45,7 +45,7 @@ sub caller3_ok {
         ),
     );
 
-    $expected =~ s/'/::/g if $] < 5.041_003;
+    $expected =~ s/'/::/g if $] < 5.037009 || $] >= 5.041_004;
 
     # this is apparently how things worked before 5.16
     utf8::encode($expected) if $] < 5.016 and $ord > 255;
@@ -72,7 +72,7 @@ my @ordinal = (
     ($] >= 5.014 ? ( 0 ) : ()),
     1 .. 38,
     # single quote ' separators are deprecated in 5.37.9
-    ($] < 5.037009 ? ( 39 ) : ()),
+    ($] < 5.037009 || $] >= 5.041_004 ? ( 39 ) : ()),
     40 .. 255,
     # Unicode in 5.6 is not sane (crashes etc)
     ($] >= 5.008 ? (
@@ -85,7 +85,7 @@ my @ordinal = (
 
 my $legal_ident_char = join('',
     "A-Z_a-z0-9",
-    ($] < 5.037009 ? q['] : ()),
+    ($] < 5.037009 || $] >= 5.041_004 ? q['] : ()),
     ($] > 5.008 ? (
         map chr, 0x100, 0x498
     ) : ()),

cpan/parent/lib/parent.pm

@@ -1,7 +1,7 @@
 package parent;
 use strict;
 
-our $VERSION = '0.242';
+our $VERSION = '0.242_001';
 
 sub import {
     my $class = shift;

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 if $] != 5.041_003, parent => "Dummy'Outside";
 }
 
 my $obj = {};
@@ -41,11 +41,10 @@ is $obj->exclaim, "I CAN FROM Dummy::InlineChild", 'Inheritance is set up correc
 
 SKIP:
 {
-  skip "No ' in names from 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 '";
-
+    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 '";
 }