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
