diff options
| author | Robin Houston <robin@cpan.org> | 2005-11-21 17:03:39 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-11-21 17:19:34 +0000 |
| commit | 91cec4fb3b9ce703dab10db05e717127b2a9ed44 (patch) | |
| tree | 564c6a5c1f3e2f13fa16bb17baf9013674a070f9 /t | |
| parent | b9502f15e71f884b7c2676e820cd89c0140698a1 (diff) | |
| download | perl-91cec4fb3b9ce703dab10db05e717127b2a9ed44.tar.gz | |
concat interacts badly with magic
Message-ID: <20051121170339.GA8214@rpc142.cs.man.ac.uk>
p4raw-id: //depot/perl@26185
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/tie.t | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/t/op/tie.t b/t/op/tie.t index 1fe37e1624..8cb45398ad 100755 --- a/t/op/tie.t +++ b/t/op/tie.t @@ -578,3 +578,10 @@ tie $h, "main"; print $h,"\n"; EXPECT 3.3 +######## +sub TIESCALAR { bless {} } +sub FETCH { shift()->{i} ++ } +tie $h, "main"; +print $h.$h; +EXPECT +01 |