diff options
-rw-r--r-- | pp_ctl.c | 2 | ||||
-rw-r--r-- | t/op/switch.t | 1 |
2 files changed, 1 insertions, 2 deletions
@@ -4230,7 +4230,7 @@ PP(pp_entergiven) ENTER_with_name("given"); SAVETMPS; - sv_setsv(PAD_SV(PL_op->op_targ), POPs); + sv_setsv_mg(PAD_SV(PL_op->op_targ), POPs); PUSHBLOCK(cx, CXt_GIVEN, SP); PUSHGIVEN(cx); diff --git a/t/op/switch.t b/t/op/switch.t index c0e57a7ce6..109bc2d2c3 100644 --- a/t/op/switch.t +++ b/t/op/switch.t @@ -1201,7 +1201,6 @@ unreified_check(undef,""); } { # RT#84526 - Handle magical TARG - local our $TODO = "RT#84526 - Handle magical TARG"; my $x = my $y = "aaa"; for ($x, $y) { given ($_) { |