Fix assertion triggered by 13be902ce ([perl #77362] glob-to-lv assign)

diff --git a/sv.c b/sv.c
index 3edd796..fb30ff3 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -3589,7 +3589,7 @@ S_glob_assign_glob(pTHX_ SV *const dstr, SV *const sstr, const int dtype)
 
     PERL_ARGS_ASSERT_GLOB_ASSIGN_GLOB;
 
-    if (dtype != SVt_PVGV) {
+    if (dtype != SVt_PVGV && !isGV_with_GP(dstr)) {
        const char * const name = GvNAME(sstr);
        const STRLEN len = GvNAMELEN(sstr);
        {