[perl #77498] Assignment ignores magick when the RHS holds a glob

1 files changed, 1 insertions, 1 deletions

diff --git a/pp.c b/pp.c
index d05425c091..6811ba0507 100644
--- a/pp.c
+++ b/pp.c
@@ -221,7 +221,7 @@ PP(pp_rv2gv)
 	save_gp(MUTABLE_GV(sv), !(PL_op->op_flags & OPf_SPECIAL));
     if (sv && SvFAKE(sv)) {
 	SV *newsv = sv_newmortal();
-	sv_setsv(newsv, sv);
+	sv_setsv_flags(newsv, sv, 0);
 	SvFAKE_off(newsv);
 	SETs(newsv);
     }