From: David Mitchell <davem@iabyn.com>
Date: Fri, 4 Jun 2010 20:16:48 +0000 (+0100)
Subject: belatedly add a test for RT #51636:
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3a19377ba2315fce9354aa3f06bafbbbab740f1b;p=p5sagit%2Fp5-mst-13.2.git

belatedly add a test for RT #51636:

segmentation fault with array ties
---

diff --git a/t/op/tie.t b/t/op/tie.t
index 281c0d9..ad3031a 100644
--- a/t/op/tie.t
+++ b/t/op/tie.t
@@ -897,3 +897,19 @@ fetching... *{}
 fetching... @{}
 fetching... %{}
 fetching... ${}
+########
+# RT 51636: segmentation fault with array ties
+
+tie my @a, 'T';
+@a = (1);
+print "ok\n"; # if we got here we didn't crash
+
+package T;
+
+sub TIEARRAY { bless {} }
+sub STORE    { tie my @b, 'T' }
+sub CLEAR    { }
+sub EXTEND   { }
+
+EXPECT
+ok