summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--pp_ctl.c2
-rw-r--r--t/op/switch.t1
2 files changed, 1 insertions, 2 deletions
diff --git a/pp_ctl.c b/pp_ctl.c
index a30e16d0de..fe36489fe7 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -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 ($_) {