[perl #77926] Glob reification during localisation

This was supposed to have been fixed by 2acc3314e31a9, but the code it
added was in the wrong spot. (This is the code that makes *{} return a
new glob if its argument is FAKE.)

Consequently, local *$foo was localising $foo, not *$foo.

This changes the order of the statements and adds a test.

1 files changed, 4 insertions, 4 deletions

diff --git a/pp.c b/pp.c
index 297b532058..9a74280f69 100644
--- a/pp.c
+++ b/pp.c
@@ -218,15 +218,15 @@ PP(pp_rv2gv)
 	    if (sv) SvFAKE_off(sv);
 	}
     }
-    if (PL_op->op_private & OPpLVAL_INTRO)
-	save_gp(MUTABLE_GV(sv), !(PL_op->op_flags & OPf_SPECIAL));
     if (sv && SvFAKE(sv)) {
 	SV *newsv = sv_newmortal();
 	sv_setsv_flags(newsv, sv, 0);
 	SvFAKE_off(newsv);
-	SETs(newsv);
+	sv = newsv;
     }
-    else SETs(sv);
+    if (PL_op->op_private & OPpLVAL_INTRO)
+	save_gp(MUTABLE_GV(sv), !(PL_op->op_flags & OPf_SPECIAL));
+    SETs(sv);
     RETURN;
 }