diff options
| author | Ian Phillipps <Ian.Phillipps@iname.com> | 1999-07-12 13:30:05 +0100 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-17 18:23:55 +0000 |
| commit | 7bb043c358def186b952b465c24a2249d64f519e (patch) | |
| tree | da1efa1cb1ce023c38c9f71afb98172601810a85 /t | |
| parent | d5a9bfb0fc8643b1208bad4f15e3c88ef46b4160 (diff) | |
| download | perl-7bb043c358def186b952b465c24a2249d64f519e.tar.gz | |
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
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/tie.t | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/t/op/tie.t b/t/op/tie.t index daec685d8d..49f07d4d2d 100755 --- 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 |