diff options
| author | David Mitchell <davem@iabyn.com> | 2010-06-04 21:16:48 +0100 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2010-06-04 21:16:48 +0100 |
| commit | 3a19377ba2315fce9354aa3f06bafbbbab740f1b (patch) | |
| tree | b6d3b1e17ad7d7dd48c0c96594cad823d7ef937c /t/op/tie.t | |
| parent | 8ef242405b8c660c02e953dbc987fbc06897af10 (diff) | |
| download | perl-3a19377ba2315fce9354aa3f06bafbbbab740f1b.tar.gz | |
belatedly add a test for RT #51636:
segmentation fault with array ties
Diffstat (limited to 't/op/tie.t')
| -rw-r--r-- | t/op/tie.t | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/t/op/tie.t b/t/op/tie.t index 281c0d97a0..ad3031a818 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 |