In perl.git, the branch maint-5.24 has been updated

<https://perl5.git.perl.org/perl.git/commitdiff/e75bac6d8cfa6c77bd713231cdb73be89f36b813?hp=3953afce0ccfb90a56c20a0dc3c3e2a873096e58>

- Log -----------------------------------------------------------------
commit e75bac6d8cfa6c77bd713231cdb73be89f36b813
Author: reneeb <i...@perl-services.de>
Date:   Tue Feb 20 20:32:06 2018 +0100

    update checkAUTHORS
    
    (cherry picked from commit 8f6628e3029399ac1e48dfcb59c3cd30e5127c3e)

commit 9267386f40e79a3350cbad1252b76297cf352565
Author: Zefram <zef...@fysh.org>
Date:   Fri Mar 2 19:31:27 2018 +0000

    properly check readpipe()'s argument list
    
    readpipe() wasn't applying context to its argument list, resulting in
    readpipe()'s context leaking in, and broken stack discipline when a list
    expression was used.  Fixes [perl #4574].
    
    (cherry picked from commit 397baf232086e0a9ad6f881a9614d3dbaea853fc)

commit 2ddb5c4c14a33ef4be5bb0f831f622c95b005b2f
Author: reneeb <i...@perl-services.de>
Date:   Fri Mar 2 19:21:57 2018 +0000

    update Module::CoreList for v5.27.9
    
    (manually cherry picked from commit 
9862549e18ce884c834a61a7eeed90e9a10412f8)

commit 6abe654e0cff93c224e1efb52acf94ce03ef41ce
Author: reneeb <i...@perl-services.de>
Date:   Tue Feb 20 22:23:18 2018 +0100

    Update epigraph.pod
    
    (cherry picked from commit e60142ac4ee7a9ea05f15c3467311c25d3a80fc6)

commit be86c8f44b08212f357e75b7be05b876393d4a0f
Author: reneeb <i...@perl-services.de>
Date:   Tue Feb 20 19:23:23 2018 +0100

    add new release to perlhist
    
    (cherry picked from commit 987cf6a02ef79898831f1294a6fe97c5884cfa5a)

-----------------------------------------------------------------------

Summary of changes:
 Porting/checkAUTHORS.pl                     |   1 +
 Porting/epigraphs.pod                       |  23 +++++
 dist/Module-CoreList/lib/Module/CoreList.pm | 139 +++++++++++++++++++++++++++-
 op.c                                        |   1 +
 pod/perlhist.pod                            |   1 +
 t/op/exec.t                                 |  27 +++++-
 6 files changed, 188 insertions(+), 4 deletions(-)

diff --git a/Porting/checkAUTHORS.pl b/Porting/checkAUTHORS.pl
index 655edc4ea6..2baf177475 100755
--- a/Porting/checkAUTHORS.pl
+++ b/Porting/checkAUTHORS.pl
@@ -831,6 +831,7 @@ mod...@renee-baecker.de                 
renee.baecker\100smart-websolutions.de
 +                                       otrs\100ubuntu.(none)
 +                                       perl\100renee-baecker.de
 +                                       reb\100perl-services.de
++                                       info\100perl-services.de
 richard.foley\100rfi.net                richard.foley\100t-online.de
 +                                       richard.foley\100ubs.com
 +                                       richard.foley\100ubsw.com
diff --git a/Porting/epigraphs.pod b/Porting/epigraphs.pod
index 0265383570..094ea54eba 100644
--- a/Porting/epigraphs.pod
+++ b/Porting/epigraphs.pod
@@ -17,6 +17,29 @@ Consult your favorite dictionary for details.
 
 =head1 EPIGRAPHS
 
+=head2 v5.27.9 - Agatha Christie, "The Mysterious Affair at Styles"
+
+L<Announced on 2018-02-20 by Renee 
B├Ącker|https://www.nntp.perl.org/group/perl.perl5.porters/2018/02/msg249549.html>
+
+  Poirot was an extraordinary looking little man. He was hardly more
+  than five feet, four inches, but carried himself with great dignity.
+  His head was exactly the shape of an egg, and he always perched it
+  a little on one side. His moustache was very stiff and military.
+  The neatness of his attire was almost incredible. I believe a
+  speck of dust would have caused him more pain than a bullet wound.
+  Yet this quaint dandified little man who, I was sorry to see, now
+  limped badly, had been in his time one of the most celebrated members
+  of the Belgian police. As a detective, his flair had been extraordinary,
+  and he had achieved triumphs by unravelling some of the most baffling
+  cases of the day.
+    He pointed out to me the little house inhabited by him and his fellow
+  Belgians, and I promised to go and see him at an early date. Then he
+  raised his hat with a flourish to Cynthia, and we drove away.
+    "He's a dear little man," said Cynthia. "I'd no idea you knew him."
+    "You've been entertaining a celebrity unawares," I replied.
+    And, for the rest of the way home, I recited to them the various
+  exploits and triumphs of Hercule Poirot.
+
 =head2 v5.27.8 - Jasper Fforde, "Shades of Grey"
 
 L<Announced on 2018-01-20 by 
Abigail|http://nntp.perl.org/group/perl.perl5.porters/248914>
diff --git a/dist/Module-CoreList/lib/Module/CoreList.pm 
b/dist/Module-CoreList/lib/Module/CoreList.pm
index 2bfb46d0af..1fec1b5c7a 100644
--- a/dist/Module-CoreList/lib/Module/CoreList.pm
+++ b/dist/Module-CoreList/lib/Module/CoreList.pm
@@ -15014,12 +15014,149 @@ for my $version ( sort { $a <=> $b } keys %released 
) {
         delta_from => 5.027008,
         changed => {
             'B::Op_private'         => '5.027009',
+            'Carp'                  => '1.46',
+            'Carp::Heavy'           => '1.46',
             'Config'                => '5.027009',
+            'Cwd'                   => '3.74',
+            'Devel::PPPort'         => '3.39',
+            'Encode'                => '2.96',
+            'Encode::Unicode'       => '2.17',
+            'Errno'                 => '1.29',
+            'ExtUtils::Command'     => '7.32',
+            'ExtUtils::Command::MM' => '7.32',
+            'ExtUtils::Liblist'     => '7.32',
+            'ExtUtils::Liblist::Kid'=> '7.32',
+            'ExtUtils::MM'          => '7.32',
+            'ExtUtils::MM_AIX'      => '7.32',
+            'ExtUtils::MM_Any'      => '7.32',
+            'ExtUtils::MM_BeOS'     => '7.32',
+            'ExtUtils::MM_Cygwin'   => '7.32',
+            'ExtUtils::MM_DOS'      => '7.32',
+            'ExtUtils::MM_Darwin'   => '7.32',
+            'ExtUtils::MM_MacOS'    => '7.32',
+            'ExtUtils::MM_NW5'      => '7.32',
+            'ExtUtils::MM_OS2'      => '7.32',
+            'ExtUtils::MM_QNX'      => '7.32',
+            'ExtUtils::MM_UWIN'     => '7.32',
+            'ExtUtils::MM_Unix'     => '7.32',
+            'ExtUtils::MM_VMS'      => '7.32',
+            'ExtUtils::MM_VOS'      => '7.32',
+            'ExtUtils::MM_Win32'    => '7.32',
+            'ExtUtils::MM_Win95'    => '7.32',
+            'ExtUtils::MY'          => '7.32',
+            'ExtUtils::MakeMaker'   => '7.32',
+            'ExtUtils::MakeMaker::Config'=> '7.32',
+            'ExtUtils::MakeMaker::Locale'=> '7.32',
+            'ExtUtils::MakeMaker::version'=> '7.32',
+            'ExtUtils::MakeMaker::version::regex'=> '7.32',
+            'ExtUtils::Mkbootstrap' => '7.32',
+            'ExtUtils::Mksymlists'  => '7.32',
+            'ExtUtils::ParseXS'     => '3.38',
+            'ExtUtils::ParseXS::Constants'=> '3.38',
+            'ExtUtils::ParseXS::CountLines'=> '3.38',
+            'ExtUtils::ParseXS::Eval'=> '3.38',
+            'ExtUtils::ParseXS::Utilities'=> '3.38',
+            'ExtUtils::Typemaps'    => '3.38',
+            'ExtUtils::Typemaps::Cmd'=> '3.38',
+            'ExtUtils::Typemaps::InputMap'=> '3.38',
+            'ExtUtils::Typemaps::OutputMap'=> '3.38',
+            'ExtUtils::Typemaps::Type'=> '3.38',
+            'ExtUtils::testlib'     => '7.32',
+            'File::Spec'            => '3.74',
+            'File::Spec::AmigaOS'   => '3.74',
+            'File::Spec::Cygwin'    => '3.74',
+            'File::Spec::Epoc'      => '3.74',
+            'File::Spec::Functions' => '3.74',
+            'File::Spec::Mac'       => '3.74',
+            'File::Spec::OS2'       => '3.74',
+            'File::Spec::Unix'      => '3.74',
+            'File::Spec::VMS'       => '3.74',
+            'File::Spec::Win32'     => '3.74',
+            'IPC::Cmd'              => '1.00',
+            'Math::BigFloat::Trace' => '0.49',
+            'Math::BigInt::Trace'   => '0.49',
             'Module::CoreList'      => '5.20180220',
-            'Module::CoreList::TieHashDelta'=> '5.20180220',
             'Module::CoreList::Utils'=> '5.20180220',
+            'POSIX'                 => '1.82',
+            'PerlIO::encoding'      => '0.26',
+            'Storable'              => '3.06',
+            'Storable::Limit'       => undef,
+            'Storable::__Storable__'=> '3.06',
+            'Test2'                 => '1.302122',
+            'Test2::API'            => '1.302122',
+            'Test2::API::Breakage'  => '1.302122',
+            'Test2::API::Context'   => '1.302122',
+            'Test2::API::Instance'  => '1.302122',
+            'Test2::API::Stack'     => '1.302122',
+            'Test2::Event'          => '1.302122',
+            'Test2::Event::Bail'    => '1.302122',
+            'Test2::Event::Diag'    => '1.302122',
+            'Test2::Event::Encoding'=> '1.302122',
+            'Test2::Event::Exception'=> '1.302122',
+            'Test2::Event::Fail'    => '1.302122',
+            'Test2::Event::Generic' => '1.302122',
+            'Test2::Event::Note'    => '1.302122',
+            'Test2::Event::Ok'      => '1.302122',
+            'Test2::Event::Pass'    => '1.302122',
+            'Test2::Event::Plan'    => '1.302122',
+            'Test2::Event::Skip'    => '1.302122',
+            'Test2::Event::Subtest' => '1.302122',
+            'Test2::Event::TAP::Version'=> '1.302122',
+            'Test2::Event::Waiting' => '1.302122',
+            'Test2::EventFacet'     => '1.302122',
+            'Test2::EventFacet::About'=> '1.302122',
+            'Test2::EventFacet::Amnesty'=> '1.302122',
+            'Test2::EventFacet::Assert'=> '1.302122',
+            'Test2::EventFacet::Control'=> '1.302122',
+            'Test2::EventFacet::Error'=> '1.302122',
+            'Test2::EventFacet::Info'=> '1.302122',
+            'Test2::EventFacet::Meta'=> '1.302122',
+            'Test2::EventFacet::Parent'=> '1.302122',
+            'Test2::EventFacet::Plan'=> '1.302122',
+            'Test2::EventFacet::Render'=> '1.302122',
+            'Test2::EventFacet::Trace'=> '1.302122',
+            'Test2::Formatter'      => '1.302122',
+            'Test2::Formatter::TAP' => '1.302122',
+            'Test2::Hub'            => '1.302122',
+            'Test2::Hub::Interceptor'=> '1.302122',
+            'Test2::Hub::Interceptor::Terminator'=> '1.302122',
+            'Test2::Hub::Subtest'   => '1.302122',
+            'Test2::IPC'            => '1.302122',
+            'Test2::IPC::Driver'    => '1.302122',
+            'Test2::IPC::Driver::Files'=> '1.302122',
+            'Test2::Tools::Tiny'    => '1.302122',
+            'Test2::Util'           => '1.302122',
+            'Test2::Util::ExternalMeta'=> '1.302122',
+            'Test2::Util::Facets2Legacy'=> '1.302122',
+            'Test2::Util::HashBase' => '1.302122',
+            'Test2::Util::Trace'    => '1.302122',
+            'Test::Builder'         => '1.302122',
+            'Test::Builder::Formatter'=> '1.302122',
+            'Test::Builder::Module' => '1.302122',
+            'Test::Builder::Tester' => '1.302122',
+            'Test::Builder::Tester::Color'=> '1.302122',
+            'Test::Builder::TodoDiag'=> '1.302122',
+            'Test::More'            => '1.302122',
+            'Test::Simple'          => '1.302122',
+            'Test::Tester'          => '1.302122',
+            'Test::Tester::Capture' => '1.302122',
+            'Test::Tester::CaptureRunner'=> '1.302122',
+            'Test::Tester::Delegate'=> '1.302122',
+            'Test::use::ok'         => '1.302122',
+            'Time::HiRes'           => '1.9753',
+            'XS::APItest'           => '0.96',
+            'bigint'                => '0.49',
+            'bignum'                => '0.49',
+            'bigrat'                => '0.49',
+            'encoding'              => '2.22',
+            'if'                    => '0.0608',
+            'mro'                   => '1.22',
+            'ok'                    => '1.302122',
+            'threads'               => '2.22',
+            'warnings'              => '1.41',
         },
         removed => {
+            'Module::CoreList::TieHashDelta'=> 1,
         }
     },
     5.024004 => {
diff --git a/op.c b/op.c
index 301acc6174..ae85a4783a 100644
--- a/op.c
+++ b/op.c
@@ -9332,6 +9332,7 @@ Perl_ck_backtick(pTHX_ OP *o)
     OP *newop = NULL;
     OP *sibl;
     PERL_ARGS_ASSERT_CK_BACKTICK;
+    o = ck_fun(o);
     /* qx and `` have a null pushmark; CORE::readpipe has only one kid. */
     if (o->op_flags & OPf_KIDS && (sibl = OpSIBLING(cUNOPo->op_first))
      && (gv = gv_override("readpipe",8)))
diff --git a/pod/perlhist.pod b/pod/perlhist.pod
index bf32694b7a..d6b4344720 100644
--- a/pod/perlhist.pod
+++ b/pod/perlhist.pod
@@ -634,6 +634,7 @@ the strings?).
  Ether     5.27.6       2017-Nov-20
  BinGOs    5.27.7       2017-Dec-20
  Abigail   5.27.8       2018-Jan-20
+ Renee     5.27.9       2018-Feb-20
 
 =head2 SELECTED RELEASE SIZES
 
diff --git a/t/op/exec.t b/t/op/exec.t
index 325ccb2ace..726f5481d8 100644
--- a/t/op/exec.t
+++ b/t/op/exec.t
@@ -36,7 +36,7 @@ $ENV{LANGUAGE} = 'C';         # Ditto in GNU.
 my $Is_VMS   = $^O eq 'VMS';
 my $Is_Win32 = $^O eq 'MSWin32';
 
-plan(tests => 24);
+plan(tests => 33);
 
 my $Perl = which_perl();
 
@@ -124,8 +124,29 @@ $Perl -le "print 'ok'"
 END
 
 {
-    local $_ = qq($Perl -le "print 'ok'");
-    is( readpipe, "ok\n", 'readpipe default argument' );
+    sub rpecho { qq($Perl -le "print '$_[0]'") }
+    is scalar(readpipe(rpecho("b"))), "b\n",
+       "readpipe with one argument in scalar context";
+    is join(",", "a", readpipe(rpecho("b")), "c"), "a,b\n,c",
+       "readpipe with one argument in list context";
+    local $_ = rpecho("f");
+    is scalar(readpipe), "f\n",
+       "readpipe default argument in scalar context";
+    is join(",", "a", readpipe, "c"), "a,f\n,c",
+       "readpipe default argument in list context";
+    sub rpechocxt {
+       rpecho(wantarray ? "list" : defined(wantarray) ? "scalar" : "void");
+    }
+    is scalar(readpipe(rpechocxt())), "scalar\n",
+       "readpipe argument context in scalar context";
+    is join(",", "a", readpipe(rpechocxt()), "b"), "a,scalar\n,b",
+       "readpipe argument context in list context";
+    foreach my $args ("(\$::p,\$::q)", "((\$::p,\$::q))") {
+       foreach my $lvalue ("my \$r", "my \@r") {
+           eval("$lvalue = readpipe$args if 0");
+           like $@, qr/\AToo many arguments for /;
+       }
+    }
 }
 
 package o {

-- 
Perl5 Master Repository

Reply via email to