Long double patches from Dan Sugalski.

[perl5.git] / doop.c

diff --git a/doop.c b/doop.c
index e31af50..ad626ca 100644 (file)
--- a/doop.c
+++ b/doop.c
@@ -746,6 +746,7 @@ Perl_do_vecset(pTHX_ SV *sv)
            s[offset+3] = lval & 255;
        }
     }
+    SvSETMAGIC(targ);
 }
 
 void