fix vec() on magic values

	Message-ID: <19990712123005.A11355@homer.diplex.co.uk>
	Subject: [PATCH 5.005_57] Re: do_vecset is broken.  Re: [ID 19990703.003].

p4raw-id: //depot/perl@3680

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

diff --git a/t/op/tie.t b/t/op/tie.t
index daec685..49f07d4 100755 (executable)
--- a/t/op/tie.t
+++ b/t/op/tie.t
@@ -166,3 +166,15 @@ sub Self::DESTROY { $b = $_[0] + 0; }
 }
 die unless $a == $b;
 EXPECT
+########
+# Interaction of tie and vec
+
+my ($a, $b);
+use Tie::Scalar;
+tie $a,Tie::StdScalar or die;
+vec($b,1,1)=1;
+$a = $b;
+vec($a,1,1)=0;
+vec($b,1,1)=0;
+die unless $a eq $b;
+EXPECT