Another ex-PVBM assert

Message-ID: <tpdfu4-bsm.ln1@osiris.mauzo.dyndns.org>

p4raw-id: //depot/perl@32121

1 files changed, 1 insertions, 1 deletions

diff --git a/sv.c b/sv.c
index 2f2cef9591..bf2e8c8be6 100644
--- a/sv.c
+++ b/sv.c
@@ -3538,7 +3538,7 @@ Perl_sv_setsv_flags(pTHX_ SV *dstr, register SV *sstr, I32 flags)
 	}
 
 	if (dtype >= SVt_PV) {
-	    if (dtype == SVt_PVGV) {
+	    if (dtype == SVt_PVGV && isGV_with_GP(dstr)) {
 		glob_assign_ref(dstr, sstr);
 		return;
 	    }