In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/a10e04b588b6b10ac6d059efacd8dec25d14bdb3?hp=88b13658991e60bf62462d089d8bbf592f48ce0c>
- Log ----------------------------------------------------------------- commit a10e04b588b6b10ac6d059efacd8dec25d14bdb3 Author: David Mitchell <[email protected]> Date: Thu Jun 15 14:29:56 2017 +0100 pp_ref: do SvSETMAGIC(TARG) With v5.27.0-317-g88b1365, I changed the SvSETMAGIC(TARG) at the end of pp_ref() to a simple assert(!SvSMAGICAL(TARG)), on the grounds that it always returned a simple string or similar, which should never be magic. Turns out I didn't allow for taint magic. This commit restores the old behaviour and fixes Module::Runtime (which is where I spotted the issue). ----------------------------------------------------------------------- Summary of changes: pp.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/pp.c b/pp.c index 305792f67b..e4072ea8b9 100644 --- a/pp.c +++ b/pp.c @@ -629,7 +629,7 @@ PP(pp_ref) dTARGET; SETs(TARG); sv_ref(TARG, SvRV(sv), TRUE); - assert(!SvSMAGICAL(TARG)); + SvSETMAGIC(TARG); return NORMAL; } -- Perl5 Master Repository
