B::Deparse updated to 1.37_01c

i.e. from 5.24.0c without SIGNATURE and fake_signature

Support for more cperl-specific ops:
C<aelem*_u>, C<u_{add,subtract,multiply}>, C<{i,n,s}_aelem{,_u}>

Author: Reini Urban

.git-rr-cache

@@ -12628,7 +12628,8 @@ for my $version ( sort { version_sort($a, $b) } keys %released ) {
         changed => {
             'Cpanel::JSON::XS'        => '3.0217',
             'Config::Perl::V'         => '0.26_01',
-            'B::C'                    => '1.54_07',
+            'B::C'                    => '1.54_08',
+            'B::Deparse'              => '1.37_01c',
             'Data::Dumper'            => '2.162',
             'Devel::PPPort'           => '3.33_02',
             'DynaLoader'              => '2.04c',

dist/Module-CoreList/lib/Module/CoreList.pm

@@ -4,7 +4,7 @@
 #
 # Initially this test file just checked that CORE::foo got correctly
 # deparsed as CORE::foo, hence the name. It's since been expanded
-# to fully test both CORE:: verses none, plus that any arguments
+# to fully test both CORE:: versus none, plus that any arguments
 # are correctly deparsed. It also cross-checks against regen/keywords.pl
 # to make sure we've tested all keywords, and with the correct strength.
 #
@@ -36,11 +36,10 @@ BEGIN {
 
 use strict;
 use Test::More;
-plan tests => 4006;
+plan tests => 3886;
 
 use feature (sprintf(":%vd", $^V)); # to avoid relying on the feature
                                     # logic to add CORE::
-no warnings 'experimental::autoderef';
 use B::Deparse;
 my $deparse = new B::Deparse;
 
@@ -81,35 +80,35 @@ sub testit {
 	$desc .= " (lex sub)" if $lexsub;
 
 
-	my $code_ref;
+	my ($code, $code_ref);
 	if ($lexsub) {
 	    package lexsubtest;
 	    no warnings 'experimental::lexical_subs';
 	    use feature 'lexical_subs';
 	    no strict 'vars';
-	    $code_ref =
-		eval "sub { state sub $keyword; ${vars}() = $expr }"
-			    || die "$@ in $expr";
+	    $code = "sub { state sub $keyword; ${vars}() = $expr }";
+	    $code_ref = eval $code || die "$@ in $expr";
 	}
 	else {
 	    package test;
 	    use subs ();
 	    import subs $keyword;
-	    $code_ref = eval "no strict 'vars'; sub { ${vars}() = $expr }"
-			    or die "$@ in $expr";
+	    $code = "no strict 'vars'; sub { ${vars}() = $expr }";
+	    $code_ref = eval $code || die "$@ in $expr";
 	}
 
 	my $got_text = $deparse->coderef2text($code_ref);
 
 	unless ($got_text =~ /
     package (?:lexsub)?test;
-    BEGIN \{\$\{\^WARNING_BITS} = "[^"]*"}
     use strict 'refs', 'subs';
     use feature [^\n]+
     \Q$vars\E\(\) = (.*)
 }/s) {
 	    ::fail($desc);
 	    ::diag("couldn't extract line from boilerplate\n");
+	    ::diag($code);
+	    ::diag("=>");
 	    ::diag($got_text);
 	    return;
 	}
@@ -252,6 +251,7 @@ testit do       => 'do { 1 };',
 		   "do {\n        1\n    };";
 
 testit each     => 'CORE::each %bar;';
+testit each     => 'CORE::each @foo;';
 
 testit eof      => 'CORE::eof();';
 
@@ -271,17 +271,32 @@ testit glob     => 'CORE::glob $a;',              'CORE::glob($a);';
 testit grep     => 'CORE::grep { $a } $b, $c',    'grep({$a;} $b, $c);';
 
 testit keys     => 'CORE::keys %bar;';
+testit keys     => 'CORE::keys @bar;';
 
 testit map      => 'CORE::map { $a } $b, $c',    'map({$a;} $b, $c);';
 
 testit not      => '3 unless CORE::not $a && $b;';
 
+testit pop      => 'CORE::pop @foo;';
+
+testit push     => 'CORE::push @foo;',           'CORE::push(@foo);';
+testit push     => 'CORE::push @foo, 1;',        'CORE::push(@foo, 1);';
+testit push     => 'CORE::push @foo, 1, 2;',     'CORE::push(@foo, 1, 2);';
+
 testit readline => 'CORE::readline $a . $b;';
 
 testit readpipe => 'CORE::readpipe $a + $b;';
 
 testit reverse  => 'CORE::reverse sort(@foo);';
 
+testit shift    => 'CORE::shift @foo;';
+
+testit splice   => q{CORE::splice @foo;},                 q{CORE::splice(@foo);};
+testit splice   => q{CORE::splice @foo, 0;},              q{CORE::splice(@foo, 0);};
+testit splice   => q{CORE::splice @foo, 0, 1;},           q{CORE::splice(@foo, 0, 1);};
+testit splice   => q{CORE::splice @foo, 0, 1, 'a';},      q{CORE::splice(@foo, 0, 1, 'a');};
+testit splice   => q{CORE::splice @foo, 0, 1, 'a', 'b';}, q{CORE::splice(@foo, 0, 1, 'a', 'b');};
+
 # note that the test does '() = split...' which is why the
 # limit is optimised to 1
 testit split    => 'split;',                     q{split(' ', $_, 1);};
@@ -298,7 +313,12 @@ testit sub      => 'CORE::sub { $a, $b }',
 
 testit system   => 'CORE::system($foo $bar);';
 
+testit unshift  => 'CORE::unshift @foo;',        'CORE::unshift(@foo);';
+testit unshift  => 'CORE::unshift @foo, 1;',     'CORE::unshift(@foo, 1);';
+testit unshift  => 'CORE::unshift @foo, 1, 2;',  'CORE::unshift(@foo, 1, 2);';
+
 testit values   => 'CORE::values %bar;';
+testit values   => 'CORE::values @foo;';
 
 
 # XXX These are deparsed wrapped in parens.
@@ -463,7 +483,7 @@ defined          01    $+
 die              @     p1
 # do handled specially
 # dump handled specially
-each             1     - # also tested specially
+# each handled specially
 endgrent         0     -
 endhostent       0     -
 endnetent        0     -
@@ -522,7 +542,7 @@ index            23    p
 int              01    $
 ioctl            3     p
 join             13    p
-keys             1     - # also tested specially
+# keys handled specially
 kill             123   p
 # last handled specially
 lc               01    $
@@ -555,12 +575,12 @@ ord              01    $
 our              123   p+ # skip with 0 args, as our() => ()
 pack             123   p
 pipe             2     p
-pop              01    1
+pop              0     1 # also tested specially
 pos              01    $+
 print            @     p$+
 printf           @     p$+
 prototype        1     +
-push             123   p
+# push handled specially
 quotemeta        01    $
 rand             01    -
 read             34    p
@@ -601,7 +621,7 @@ setprotoent      1     -
 setpwent         0     -
 setservent       1     -
 setsockopt       4     p
-shift            01    1
+shift            0     1 # also tested specially
 shmctl           3     p
 shmget           3     p
 shmread          4     p
@@ -613,7 +633,7 @@ socket           4     p
 socketpair       5     p
 sort             @     p1+
 # split handled specially
-splice           12345 p
+# splice handled specially
 sprintf          123   p
 sqrt             01    $
 srand            01    -
@@ -642,10 +662,10 @@ umask            01    -
 undef            01    +
 unlink           @     p$
 unpack           12    p$
-unshift          1     p
+# unshift handled specially
 untie            1     -
 utime            @     p1
-values           1     - # also tested specially
+# values handled specially
 vec              3     p
 wait             0     -
 waitpid          2     p