This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix glob-assign for FORMAT
[perl5.git] / sv.c
diff --git a/sv.c b/sv.c
index aab9fa0..b408485 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -3692,6 +3692,7 @@ S_glob_assign_ref(pTHX_ SV *const dstr, SV *const sstr)
        goto common;
     case SVt_PVFM:
        location = (SV **) &GvFORM(dstr);
+       goto common;
     default:
        location = &GvSV(dstr);
        import_flag = GVf_IMPORTED_SV;