X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=sv.c;h=e248d144b0acd559a18cad071eb4d01241d4c76f;hb=f4d13ee9d0b78f23038694a8d4237f00da3ad10c;hp=60db71848f4a428998a5971be36ca6b0f718ae3e;hpb=ed8504609e65bf608915df5053decb2c1e5c56e9;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/sv.c b/sv.c
index 60db718..e248d14 100644
--- a/sv.c
+++ b/sv.c
@@ -2831,6 +2831,13 @@ Perl_sv_setsv(pTHX_ SV *dstr, register SV *sstr)
 			dref = (SV*)GvIOp(dstr);
 		    GvIOp(dstr) = (IO*)sref;
 		    break;
+		case SVt_PVFM:
+		    if (intro)
+			SAVESPTR(GvFORM(dstr));
+		    else
+			dref = (SV*)GvFORM(dstr);
+		    GvFORM(dstr) = (CV*)sref;
+		    break;
 		default:
 		    if (intro)
 			SAVESPTR(GvSV(dstr));