In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/00a68463f4f475b7f5f17189492f65676e9c40e3?hp=43901c14b88e29ab163687f16d4934b3d66d3b7c>
- Log ----------------------------------------------------------------- commit 00a68463f4f475b7f5f17189492f65676e9c40e3 Author: Father Chrysostomos <spr...@cpan.org> Date: Sun Jul 9 22:53:52 2017 -0700 Test that ref works in tainted statements This commit broke Module::Runtime in debugging builds: commit ba75e9a42bd919d317a4f5deb1e487c13586929d Author: David Mitchell <da...@iabyn.com> Date: Fri Jan 6 14:59:54 2017 +0000 make OP_REF support boolean context This commit restored the previous, behaviour: commit a10e04b588b6b10ac6d059efacd8dec25d14bdb3 Author: David Mitchell <da...@iabyn.com> Date: Thu Jun 15 14:29:56 2017 +0100 pp_ref: do SvSETMAGIC(TARG) But no test was added to make sure it stays fixed. Here is a test. ----------------------------------------------------------------------- Summary of changes: t/op/taint.t | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/t/op/taint.t b/t/op/taint.t index c13eaf6bd8..0988c7e0e0 100644 --- a/t/op/taint.t +++ b/t/op/taint.t @@ -2448,6 +2448,11 @@ is eval { eval $::x.1 }, 1, 'reset does not taint undef'; isnt_tainted $b, "list assign post tainted expression b"; } +# Module::Runtime was temporarily broken between 5.27.0 and 5.27.1 because +# ref() would fail an assertion in a tainted statement. (No ok() neces- +# sary since it aborts when it fails.) +() = defined $^X && ref \$^X; + # This may bomb out with the alarm signal so keep it last SKIP: { -- Perl5 Master Repository