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 (file)
--- 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