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
