From: Vincent Pit Date: Mon, 15 Jun 2009 14:44:20 +0000 (+0200) Subject: Regenerate t/21-array.t without extraneous spaces at the end of each line X-Git-Tag: v0.02~12 X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=92240461f2d526a94139ed4cf0fff445465b380d;p=perl%2Fmodules%2Fautovivification.git Regenerate t/21-array.t without extraneous spaces at the end of each line --- diff --git a/samples/hash2array.pl b/samples/hash2array.pl index b26950a..72cd265 100644 --- a/samples/hash2array.pl +++ b/samples/hash2array.pl @@ -49,6 +49,7 @@ while (<$hash_t>) { } $buf .= $suffix; $buf =~ s/\s+/ /g; + $buf =~ s/\s+$//; print $array_t "$buf\n"; } } diff --git a/t/21-array.t b/t/21-array.t index dae28a4..5183bdf 100644 --- a/t/21-array.t +++ b/t/21-array.t @@ -77,308 +77,308 @@ while () { } __DATA__ - ---- fetch --- - -$x # $x->[0] # '', undef, [ ] -$x # $x->[0] # '', undef, undef # -$x # $x->[0] # '', undef, undef # +fetch -$x # $x->[0] # '', undef, [ ] # +exists -$x # $x->[0] # '', undef, [ ] # +delete -$x # $x->[0] # '', undef, [ ] # +store - -$x # $x->[0] # qr/^Reference vivification forbidden/, undef, undef # +strict +fetch -$x # $x->[0] # '', undef, [ ] # +strict +exists -$x # $x->[0] # '', undef, [ ] # +strict +delete -$x # $x->[0] # '', undef, [ ] # +strict +store - -$x # $x->[0]->[1] # '', undef, [ [ ] ] -$x # $x->[0]->[1] # '', undef, undef # -$x # $x->[0]->[1] # '', undef, undef # +fetch -$x # $x->[0]->[1] # '', undef, [ [ ] ] # +exists -$x # $x->[0]->[1] # '', undef, [ [ ] ] # +delete -$x # $x->[0]->[1] # '', undef, [ [ ] ] # +store - -$x # $x->[0]->[1] # qr/^Reference vivification forbidden/, undef, undef # +strict +fetch -$x # $x->[0]->[1] # '', undef, [ [ ] ] # +strict +exists -$x # $x->[0]->[1] # '', undef, [ [ ] ] # +strict +delete -$x # $x->[0]->[1] # '', undef, [ [ ] ] # +strict +store - -$x->[0] = 1 # $x->[0] # '', 1, [ 1 ] # +fetch -$x->[0] = 1 # $x->[1] # '', undef, [ 1 ] # +fetch -$x->[0] = 1 # $x->[0] # '', 1, [ 1 ] # +exists -$x->[0] = 1 # $x->[1] # '', undef, [ 1 ] # +exists -$x->[0] = 1 # $x->[0] # '', 1, [ 1 ] # +delete -$x->[0] = 1 # $x->[1] # '', undef, [ 1 ] # +delete -$x->[0] = 1 # $x->[0] # '', 1, [ 1 ] # +store -$x->[0] = 1 # $x->[1] # '', undef, [ 1 ] # +store - -$x->[0] = 1 # $x->[0] # '', 1, [ 1 ] # +strict +fetch -$x->[0] = 1 # $x->[1] # '', undef, [ 1 ] # +strict +fetch -$x->[0] = 1 # $x->[0] # '', 1, [ 1 ] # +strict +exists -$x->[0] = 1 # $x->[1] # '', undef, [ 1 ] # +strict +exists -$x->[0] = 1 # $x->[0] # '', 1, [ 1 ] # +strict +delete -$x->[0] = 1 # $x->[1] # '', undef, [ 1 ] # +strict +delete -$x->[0] = 1 # $x->[0] # '', 1, [ 1 ] # +strict +store -$x->[0] = 1 # $x->[1] # '', undef, [ 1 ] # +strict +store - -$x->[0]->[1] = 1 # $x->[0]->[1] # '', 1, [ [ undef, 1 ] ] # +fetch -$x->[0]->[1] = 1 # $x->[0]->[3] # '', undef, [ [ undef, 1 ] ] # +fetch -$x->[0]->[1] = 1 # $x->[2]->[3] # '', undef, [ [ undef, 1 ] ] # +fetch -$x->[0]->[1] = 1 # $x->[0]->[1] # '', 1, [ [ undef, 1 ] ] # +exists -$x->[0]->[1] = 1 # $x->[0]->[3] # '', undef, [ [ undef, 1 ] ] # +exists -$x->[0]->[1] = 1 # $x->[2]->[3] # '', undef, [ [ undef, 1 ], undef, [ ] ] # +exists -$x->[0]->[1] = 1 # $x->[0]->[1] # '', 1, [ [ undef, 1 ] ] # +delete -$x->[0]->[1] = 1 # $x->[0]->[3] # '', undef, [ [ undef, 1 ] ] # +delete -$x->[0]->[1] = 1 # $x->[2]->[3] # '', undef, [ [ undef, 1 ], undef, [ ] ] # +delete -$x->[0]->[1] = 1 # $x->[0]->[1] # '', 1, [ [ undef, 1 ] ] # +store -$x->[0]->[1] = 1 # $x->[0]->[3] # '', undef, [ [ undef, 1 ] ] # +store -$x->[0]->[1] = 1 # $x->[2]->[3] # '', undef, [ [ undef, 1 ], undef, [ ] ] # +store - -$x->[0]->[1] = 1 # $x->[0]->[1] # '', 1, [ [ undef, 1 ] ] # +strict +fetch -$x->[0]->[1] = 1 # $x->[0]->[3] # '', undef, [ [ undef, 1 ] ] # +strict +fetch -$x->[0]->[1] = 1 # $x->[2]->[3] # qr/^Reference vivification forbidden/, undef, [ [ undef, 1 ] ] # +strict +fetch -$x->[0]->[1] = 1 # $x->[0]->[1] # '', 1, [ [ undef, 1 ] ] # +strict +exists -$x->[0]->[1] = 1 # $x->[0]->[3] # '', undef, [ [ undef, 1 ] ] # +strict +exists -$x->[0]->[1] = 1 # $x->[2]->[3] # '', undef, [ [ undef, 1 ], undef, [ ] ] # +strict +exists -$x->[0]->[1] = 1 # $x->[0]->[1] # '', 1, [ [ undef, 1 ] ] # +strict +delete -$x->[0]->[1] = 1 # $x->[0]->[3] # '', undef, [ [ undef, 1 ] ] # +strict +delete -$x->[0]->[1] = 1 # $x->[2]->[3] # '', undef, [ [ undef, 1 ], undef, [ ] ] # +strict +delete -$x->[0]->[1] = 1 # $x->[0]->[1] # '', 1, [ [ undef, 1 ] ] # +strict +store -$x->[0]->[1] = 1 # $x->[0]->[3] # '', undef, [ [ undef, 1 ] ] # +strict +store -$x->[0]->[1] = 1 # $x->[2]->[3] # '', undef, [ [ undef, 1 ], undef, [ ] ] # +strict +store - ---- aliasing --- - -$x # 1 for $x->[0]; () # '', undef, [ undef ] -$x # 1 for $x->[0]; () # '', undef, undef # -$x # 1 for $x->[0]; () # '', undef, undef # +fetch -$x # 1 for $x->[0]; () # '', undef, [ undef ] # +exists -$x # 1 for $x->[0]; () # '', undef, [ undef ] # +delete -$x # 1 for $x->[0]; () # '', undef, [ undef ] # +store - -$x # $_ = 1 for $x->[0]; () # '', undef, [ 1 ] -$x # $_ = 1 for $x->[0]; () # '', undef, undef # -$x # $_ = 1 for $x->[0]; () # '', undef, undef # +fetch -$x # $_ = 1 for $x->[0]; () # '', undef, [ 1 ] # +exists -$x # $_ = 1 for $x->[0]; () # '', undef, [ 1 ] # +delete -$x # $_ = 1 for $x->[0]; () # '', undef, [ 1 ] # +store - -$x->[0] = 1 # 1 for $x->[0]; () # '', undef, [ 1 ] # +fetch -$x->[0] = 1 # 1 for $x->[1]; () # '', undef, [ 1, undef ] # +fetch -$x->[0] = 1 # 1 for $x->[0]; () # '', undef, [ 1 ] # +exists -$x->[0] = 1 # 1 for $x->[1]; () # '', undef, [ 1, undef ] # +exists -$x->[0] = 1 # 1 for $x->[0]; () # '', undef, [ 1 ] # +delete -$x->[0] = 1 # 1 for $x->[1]; () # '', undef, [ 1, undef ] # +delete -$x->[0] = 1 # 1 for $x->[0]; () # '', undef, [ 1 ] # +store -$x->[0] = 1 # 1 for $x->[1]; () # '', undef, [ 1, undef ] # +store - ---- exists --- - -$x # exists $x->[0] # '', '', [ ] -$x # exists $x->[0] # '', '', undef # -$x # exists $x->[0] # '', '', [ ] # +fetch -$x # exists $x->[0] # '', '', undef # +exists -$x # exists $x->[0] # '', '', [ ] # +delete -$x # exists $x->[0] # '', '', [ ] # +store - -$x # exists $x->[0] # '', '', [ ] # +strict +fetch -$x # exists $x->[0] # qr/^Reference vivification forbidden/, undef, undef # +strict +exists -$x # exists $x->[0] # '', '', [ ] # +strict +delete -$x # exists $x->[0] # '', '', [ ] # +strict +store - -$x # exists $x->[0]->[1] # '', '', [ [ ] ] -$x # exists $x->[0]->[1] # '', '', undef # -$x # exists $x->[0]->[1] # '', '', [ [ ] ] # +fetch -$x # exists $x->[0]->[1] # '', '', undef # +exists -$x # exists $x->[0]->[1] # '', '', [ [ ] ] # +delete -$x # exists $x->[0]->[1] # '', '', [ [ ] ] # +store - -$x # exists $x->[0]->[1] # '', '', [ [ ] ] # +strict +fetch -$x # exists $x->[0]->[1] # qr/^Reference vivification forbidden/, undef, undef # +strict +exists -$x # exists $x->[0]->[1] # '', '', [ [ ] ] # +strict +delete -$x # exists $x->[0]->[1] # '', '', [ [ ] ] # +strict +store - -$x->[0] = 1 # exists $x->[0] # '', 1, [ 1 ] # +fetch -$x->[0] = 1 # exists $x->[1] # '', '', [ 1 ] # +fetch -$x->[0] = 1 # exists $x->[0] # '', 1, [ 1 ] # +exists -$x->[0] = 1 # exists $x->[1] # '', '', [ 1 ] # +exists -$x->[0] = 1 # exists $x->[0] # '', 1, [ 1 ] # +delete -$x->[0] = 1 # exists $x->[1] # '', '', [ 1 ] # +delete -$x->[0] = 1 # exists $x->[0] # '', 1, [ 1 ] # +store -$x->[0] = 1 # exists $x->[1] # '', '', [ 1 ] # +store - -$x->[0] = 1 # exists $x->[0] # '', 1, [ 1 ] # +strict +fetch -$x->[0] = 1 # exists $x->[1] # '', '', [ 1 ] # +strict +fetch -$x->[0] = 1 # exists $x->[0] # '', 1, [ 1 ] # +strict +exists -$x->[0] = 1 # exists $x->[1] # '', '', [ 1 ] # +strict +exists -$x->[0] = 1 # exists $x->[0] # '', 1, [ 1 ] # +strict +delete -$x->[0] = 1 # exists $x->[1] # '', '', [ 1 ] # +strict +delete -$x->[0] = 1 # exists $x->[0] # '', 1, [ 1 ] # +strict +store -$x->[0] = 1 # exists $x->[1] # '', '', [ 1 ] # +strict +store - -$x->[0]->[1] = 1 # exists $x->[0]->[1] # '', 1, [ [ undef, 1 ] ] # +fetch -$x->[0]->[1] = 1 # exists $x->[0]->[3] # '', '', [ [ undef, 1 ] ] # +fetch -$x->[0]->[1] = 1 # exists $x->[2]->[3] # '', '', [ [ undef, 1 ], undef, [ ] ] # +fetch -$x->[0]->[1] = 1 # exists $x->[0]->[1] # '', 1, [ [ undef, 1 ] ] # +exists -$x->[0]->[1] = 1 # exists $x->[0]->[3] # '', '', [ [ undef, 1 ] ] # +exists -$x->[0]->[1] = 1 # exists $x->[2]->[3] # '', '', [ [ undef, 1 ] ] # +exists -$x->[0]->[1] = 1 # exists $x->[0]->[1] # '', 1, [ [ undef, 1 ] ] # +delete -$x->[0]->[1] = 1 # exists $x->[0]->[3] # '', '', [ [ undef, 1 ] ] # +delete -$x->[0]->[1] = 1 # exists $x->[2]->[3] # '', '', [ [ undef, 1 ], undef, [ ] ] # +delete -$x->[0]->[1] = 1 # exists $x->[0]->[1] # '', 1, [ [ undef, 1 ] ] # +store -$x->[0]->[1] = 1 # exists $x->[0]->[3] # '', '', [ [ undef, 1 ] ] # +store -$x->[0]->[1] = 1 # exists $x->[2]->[3] # '', '', [ [ undef, 1 ], undef, [ ] ] # +store - -$x->[0]->[1] = 1 # exists $x->[0]->[1] # '', 1, [ [ undef, 1 ] ] # +strict +fetch -$x->[0]->[1] = 1 # exists $x->[0]->[3] # '', '', [ [ undef, 1 ] ] # +strict +fetch -$x->[0]->[1] = 1 # exists $x->[2]->[3] # '', '', [ [ undef, 1 ], undef, [ ] ] # +strict +fetch -$x->[0]->[1] = 1 # exists $x->[0]->[1] # '', 1, [ [ undef, 1 ] ] # +strict +exists -$x->[0]->[1] = 1 # exists $x->[0]->[3] # '', '', [ [ undef, 1 ] ] # +strict +exists -$x->[0]->[1] = 1 # exists $x->[2]->[3] # qr/^Reference vivification forbidden/, undef, [ [ undef, 1 ] ] # +strict +exists -$x->[0]->[1] = 1 # exists $x->[0]->[1] # '', 1, [ [ undef, 1 ] ] # +strict +delete -$x->[0]->[1] = 1 # exists $x->[0]->[3] # '', '', [ [ undef, 1 ] ] # +strict +delete -$x->[0]->[1] = 1 # exists $x->[2]->[3] # '', '', [ [ undef, 1 ], undef, [ ] ] # +strict +delete -$x->[0]->[1] = 1 # exists $x->[0]->[1] # '', 1, [ [ undef, 1 ] ] # +strict +store -$x->[0]->[1] = 1 # exists $x->[0]->[3] # '', '', [ [ undef, 1 ] ] # +strict +store -$x->[0]->[1] = 1 # exists $x->[2]->[3] # '', '', [ [ undef, 1 ], undef, [ ] ] # +strict +store - ---- delete --- - -$x # delete $x->[0] # '', undef, [ ] -$x # delete $x->[0] # '', undef, undef # -$x # delete $x->[0] # '', undef, [ ] # +fetch -$x # delete $x->[0] # '', undef, [ ] # +exists -$x # delete $x->[0] # '', undef, undef # +delete -$x # delete $x->[0] # '', undef, [ ] # +store - -$x # delete $x->[0] # '', undef, [ ] # +strict +fetch -$x # delete $x->[0] # '', undef, [ ] # +strict +exists -$x # delete $x->[0] # qr/^Reference vivification forbidden/, undef, undef # +strict +delete -$x # delete $x->[0] # '', undef, [ ] # +strict +store - -$x # delete $x->[0]->[1] # '', undef, [ [ ] ] -$x # delete $x->[0]->[1] # '', undef, undef # -$x # delete $x->[0]->[1] # '', undef, [ [ ] ] # +fetch -$x # delete $x->[0]->[1] # '', undef, [ [ ] ] # +exists -$x # delete $x->[0]->[1] # '', undef, undef # +delete -$x # delete $x->[0]->[1] # '', undef, [ [ ] ] # +store - -$x # delete $x->[0]->[1] # '', undef, [ [ ] ] # +strict +fetch -$x # delete $x->[0]->[1] # '', undef, [ [ ] ] # +strict +exists -$x # delete $x->[0]->[1] # qr/^Reference vivification forbidden/, undef, undef # +strict +delete -$x # delete $x->[0]->[1] # '', undef, [ [ ] ] # +strict +store - -$x->[0] = 1 # delete $x->[0] # '', 1, [ ] # +fetch -$x->[0] = 1 # delete $x->[1] # '', undef, [ 1 ] # +fetch -$x->[0] = 1 # delete $x->[0] # '', 1, [ ] # +exists -$x->[0] = 1 # delete $x->[1] # '', undef, [ 1 ] # +exists -$x->[0] = 1 # delete $x->[0] # '', 1, [ ] # +delete -$x->[0] = 1 # delete $x->[1] # '', undef, [ 1 ] # +delete -$x->[0] = 1 # delete $x->[0] # '', 1, [ ] # +store -$x->[0] = 1 # delete $x->[1] # '', undef, [ 1 ] # +store - -$x->[0] = 1 # delete $x->[0] # '', 1, [ ] # +strict +fetch -$x->[0] = 1 # delete $x->[1] # '', undef, [ 1 ] # +strict +fetch -$x->[0] = 1 # delete $x->[0] # '', 1, [ ] # +strict +exists -$x->[0] = 1 # delete $x->[1] # '', undef, [ 1 ] # +strict +exists -$x->[0] = 1 # delete $x->[0] # '', 1, [ ] # +strict +delete -$x->[0] = 1 # delete $x->[1] # '', undef, [ 1 ] # +strict +delete -$x->[0] = 1 # delete $x->[0] # '', 1, [ ] # +strict +store -$x->[0] = 1 # delete $x->[1] # '', undef, [ 1 ] # +strict +store - -$x->[0]->[1] = 1 # delete $x->[0]->[1] # '', 1, [ [ ] ] # +fetch -$x->[0]->[1] = 1 # delete $x->[0]->[3] # '', undef, [ [ undef, 1 ] ]# +fetch -$x->[0]->[1] = 1 # delete $x->[2]->[3] # '', undef, [ [ undef, 1 ], undef, [ ] ] # +fetch -$x->[0]->[1] = 1 # delete $x->[0]->[1] # '', 1, [ [ ] ] # +exists -$x->[0]->[1] = 1 # delete $x->[0]->[3] # '', undef, [ [ undef, 1 ] ]# +exists -$x->[0]->[1] = 1 # delete $x->[2]->[3] # '', undef, [ [ undef, 1 ], undef, [ ] ] # +exists -$x->[0]->[1] = 1 # delete $x->[0]->[1] # '', 1, [ [ ] ] # +delete -$x->[0]->[1] = 1 # delete $x->[0]->[3] # '', undef, [ [ undef, 1 ] ]# +delete -$x->[0]->[1] = 1 # delete $x->[2]->[3] # '', undef, [ [ undef, 1 ] ]# +delete -$x->[0]->[1] = 1 # delete $x->[0]->[1] # '', 1, [ [ ] ] # +store -$x->[0]->[1] = 1 # delete $x->[0]->[3] # '', undef, [ [ undef, 1 ] ]# +store -$x->[0]->[1] = 1 # delete $x->[2]->[3] # '', undef, [ [ undef, 1 ], undef, [ ] ] # +store - -$x->[0]->[1] = 1 # delete $x->[0]->[1] # '', 1, [ [ ] ] # +strict +fetch -$x->[0]->[1] = 1 # delete $x->[0]->[3] # '', undef, [ [ undef, 1 ] ] # +strict +fetch -$x->[0]->[1] = 1 # delete $x->[2]->[3] # '', undef, [ [ undef, 1 ], undef, [ ] ]# +strict +fetch -$x->[0]->[1] = 1 # delete $x->[0]->[1] # '', 1, [ [ ] ] # +strict +exists -$x->[0]->[1] = 1 # delete $x->[0]->[3] # '', undef, [ [ undef, 1 ] ] # +strict +exists -$x->[0]->[1] = 1 # delete $x->[2]->[3] # '', undef, [ [ undef, 1 ], undef, [ ] ]# +strict +exists -$x->[0]->[1] = 1 # delete $x->[0]->[1] # '', 1, [ [ ] ] # +strict +delete -$x->[0]->[1] = 1 # delete $x->[0]->[3] # '', undef, [ [ undef, 1 ] ] # +strict +delete -$x->[0]->[1] = 1 # delete $x->[2]->[3] # qr/^Reference vivification forbidden/, undef, [ [ undef, 1 ] ] # +strict +delete -$x->[0]->[1] = 1 # delete $x->[0]->[1] # '', 1, [ [ ] ] # +strict +store -$x->[0]->[1] = 1 # delete $x->[0]->[3] # '', undef, [ [ undef, 1 ] ] # +strict +store -$x->[0]->[1] = 1 # delete $x->[2]->[3] # '', undef, [ [ undef, 1 ], undef, [ ] ]# +strict +store - ---- store --- - -$x # $x->[0] = 1 # '', 1, [ 1 ] -$x # $x->[0] = 1 # '', 1, [ 1 ] # -$x # $x->[0] = 1 # '', 1, [ 1 ] # +fetch -$x # $x->[0] = 1 # '', 1, [ 1 ] # +exists -$x # $x->[0] = 1 # '', 1, [ 1 ] # +delete -$x # $x->[0] = 1 # qr/^Can't vivify reference/, undef, undef # +store - -$x # $x->[0] = 1 # '', 1, [ 1 ] # +strict +fetch -$x # $x->[0] = 1 # '', 1, [ 1 ] # +strict +exists -$x # $x->[0] = 1 # '', 1, [ 1 ] # +strict +delete -$x # $x->[0] = 1 # qr/^Reference vivification forbidden/, undef, undef # +strict +store - -$x # $x->[0]->[1] = 1 # '', 1, [ [ undef, 1 ] ] -$x # $x->[0]->[1] = 1 # '', 1, [ [ undef, 1 ] ] # -$x # $x->[0]->[1] = 1 # '', 1, [ [ undef, 1 ] ] # +fetch -$x # $x->[0]->[1] = 1 # '', 1, [ [ undef, 1 ] ] # +exists -$x # $x->[0]->[1] = 1 # '', 1, [ [ undef, 1 ] ] # +delete -$x # $x->[0]->[1] = 1 # qr/^Can't vivify reference/, undef, undef # +store - -$x # $x->[0]->[1] = 1 # '', 1, [ [ undef, 1 ] ] # +strict +fetch -$x # $x->[0]->[1] = 1 # '', 1, [ [ undef, 1 ] ] # +strict +exists -$x # $x->[0]->[1] = 1 # '', 1, [ [ undef, 1 ] ] # +strict +delete -$x # $x->[0]->[1] = 1 # qr/^Reference vivification forbidden/, undef, undef # +strict +store - -$x->[0] = 1 # $x->[0] = 2 # '', 2, [ 2 ] # +fetch -$x->[0] = 1 # $x->[1] = 2 # '', 2, [ 1, 2 ] # +fetch -$x->[0] = 1 # $x->[0] = 2 # '', 2, [ 2 ] # +exists -$x->[0] = 1 # $x->[1] = 2 # '', 2, [ 1, 2 ] # +exists -$x->[0] = 1 # $x->[0] = 2 # '', 2, [ 2 ] # +delete -$x->[0] = 1 # $x->[1] = 2 # '', 2, [ 1, 2 ] # +delete -$x->[0] = 1 # $x->[0] = 2 # '', 2, [ 2 ] # +store -$x->[0] = 1 # $x->[1] = 2 # '', 2, [ 1, 2 ] # +store - -$x->[0] = 1 # $x->[0] = 2 # '', 2, [ 2 ] # +strict +fetch -$x->[0] = 1 # $x->[1] = 2 # '', 2, [ 1, 2 ] # +strict +fetch -$x->[0] = 1 # $x->[0] = 2 # '', 2, [ 2 ] # +strict +exists -$x->[0] = 1 # $x->[1] = 2 # '', 2, [ 1, 2 ] # +strict +exists -$x->[0] = 1 # $x->[0] = 2 # '', 2, [ 2 ] # +strict +delete -$x->[0] = 1 # $x->[1] = 2 # '', 2, [ 1, 2 ] # +strict +delete -$x->[0] = 1 # $x->[0] = 2 # '', 2, [ 2 ] # +strict +store -$x->[0] = 1 # $x->[1] = 2 # '', 2, [ 1, 2 ] # +strict +store - -$x->[0]->[1] = 1 # $x->[0]->[1] = 2 # '', 2, [ [ undef, 2 ] ] # +fetch -$x->[0]->[1] = 1 # $x->[0]->[3] = 2 # '', 2, [ [ undef, 1, undef, 2 ] ] # +fetch -$x->[0]->[1] = 1 # $x->[2]->[3] = 2 # '', 2, [ [ undef, 1 ], undef, [ undef, undef, undef, 2 ] ] # +fetch -$x->[0]->[1] = 1 # $x->[0]->[1] = 2 # '', 2, [ [ undef, 2 ] ] # +exists -$x->[0]->[1] = 1 # $x->[0]->[3] = 2 # '', 2, [ [ undef, 1, undef, 2 ] ] # +exists -$x->[0]->[1] = 1 # $x->[2]->[3] = 2 # '', 2, [ [ undef, 1 ], undef, [ undef, undef, undef, 2 ] ] # +exists -$x->[0]->[1] = 1 # $x->[0]->[1] = 2 # '', 2, [ [ undef, 2 ] ] # +delete -$x->[0]->[1] = 1 # $x->[0]->[3] = 2 # '', 2, [ [ undef, 1, undef, 2 ] ] # +delete -$x->[0]->[1] = 1 # $x->[2]->[3] = 2 # '', 2, [ [ undef, 1 ], undef, [ undef, undef, undef, 2 ] ] # +delete -$x->[0]->[1] = 1 # $x->[0]->[1] = 2 # '', 2, [ [ undef, 2 ] ] # +store -$x->[0]->[1] = 1 # $x->[0]->[3] = 2 # '', 2, [ [ undef, 1, undef, 2 ] ] # +store -$x->[0]->[1] = 1 # $x->[2]->[3] = 2 # qr/^Can't vivify reference/, undef, [ [ undef, 1 ] ] # +store - -$x->[0]->[1] = 1 # $x->[0]->[1] = 2 # '', 2, [ [ undef, 2 ] ] # +strict +fetch -$x->[0]->[1] = 1 # $x->[0]->[3] = 2 # '', 2, [ [ undef, 1, undef, 2 ] ] # +strict +fetch -$x->[0]->[1] = 1 # $x->[2]->[3] = 2 # '', 2, [ [ undef, 1 ], undef, [ undef, undef, undef, 2 ] ] # +strict +fetch -$x->[0]->[1] = 1 # $x->[0]->[1] = 2 # '', 2, [ [ undef, 2 ] ] # +strict +exists -$x->[0]->[1] = 1 # $x->[0]->[3] = 2 # '', 2, [ [ undef, 1, undef, 2 ] ] # +strict +exists -$x->[0]->[1] = 1 # $x->[2]->[3] = 2 # '', 2, [ [ undef, 1 ], undef, [ undef, undef, undef, 2 ] ] # +strict +exists -$x->[0]->[1] = 1 # $x->[0]->[1] = 2 # '', 2, [ [ undef, 2 ] ] # +strict +delete -$x->[0]->[1] = 1 # $x->[0]->[3] = 2 # '', 2, [ [ undef, 1, undef, 2 ] ] # +strict +delete -$x->[0]->[1] = 1 # $x->[2]->[3] = 2 # '', 2, [ [ undef, 1 ], undef, [ undef, undef, undef, 2 ] ] # +strict +delete -$x->[0]->[1] = 1 # $x->[0]->[1] = 2 # '', 2, [ [ undef, 2 ] ] # +strict +store -$x->[0]->[1] = 1 # $x->[0]->[3] = 2 # '', 2, [ [ undef, 1, undef, 2 ] ] # +strict +store -$x->[0]->[1] = 1 # $x->[2]->[3] = 2 # qr/^Reference vivification forbidden/, undef, [ [ undef, 1 ] ] # +strict +store + +--- fetch --- + +$x # $x->[0] # '', undef, [ ] +$x # $x->[0] # '', undef, undef # +$x # $x->[0] # '', undef, undef # +fetch +$x # $x->[0] # '', undef, [ ] # +exists +$x # $x->[0] # '', undef, [ ] # +delete +$x # $x->[0] # '', undef, [ ] # +store + +$x # $x->[0] # qr/^Reference vivification forbidden/, undef, undef # +strict +fetch +$x # $x->[0] # '', undef, [ ] # +strict +exists +$x # $x->[0] # '', undef, [ ] # +strict +delete +$x # $x->[0] # '', undef, [ ] # +strict +store + +$x # $x->[0]->[1] # '', undef, [ [ ] ] +$x # $x->[0]->[1] # '', undef, undef # +$x # $x->[0]->[1] # '', undef, undef # +fetch +$x # $x->[0]->[1] # '', undef, [ [ ] ] # +exists +$x # $x->[0]->[1] # '', undef, [ [ ] ] # +delete +$x # $x->[0]->[1] # '', undef, [ [ ] ] # +store + +$x # $x->[0]->[1] # qr/^Reference vivification forbidden/, undef, undef # +strict +fetch +$x # $x->[0]->[1] # '', undef, [ [ ] ] # +strict +exists +$x # $x->[0]->[1] # '', undef, [ [ ] ] # +strict +delete +$x # $x->[0]->[1] # '', undef, [ [ ] ] # +strict +store + +$x->[0] = 1 # $x->[0] # '', 1, [ 1 ] # +fetch +$x->[0] = 1 # $x->[1] # '', undef, [ 1 ] # +fetch +$x->[0] = 1 # $x->[0] # '', 1, [ 1 ] # +exists +$x->[0] = 1 # $x->[1] # '', undef, [ 1 ] # +exists +$x->[0] = 1 # $x->[0] # '', 1, [ 1 ] # +delete +$x->[0] = 1 # $x->[1] # '', undef, [ 1 ] # +delete +$x->[0] = 1 # $x->[0] # '', 1, [ 1 ] # +store +$x->[0] = 1 # $x->[1] # '', undef, [ 1 ] # +store + +$x->[0] = 1 # $x->[0] # '', 1, [ 1 ] # +strict +fetch +$x->[0] = 1 # $x->[1] # '', undef, [ 1 ] # +strict +fetch +$x->[0] = 1 # $x->[0] # '', 1, [ 1 ] # +strict +exists +$x->[0] = 1 # $x->[1] # '', undef, [ 1 ] # +strict +exists +$x->[0] = 1 # $x->[0] # '', 1, [ 1 ] # +strict +delete +$x->[0] = 1 # $x->[1] # '', undef, [ 1 ] # +strict +delete +$x->[0] = 1 # $x->[0] # '', 1, [ 1 ] # +strict +store +$x->[0] = 1 # $x->[1] # '', undef, [ 1 ] # +strict +store + +$x->[0]->[1] = 1 # $x->[0]->[1] # '', 1, [ [ undef, 1 ] ] # +fetch +$x->[0]->[1] = 1 # $x->[0]->[3] # '', undef, [ [ undef, 1 ] ] # +fetch +$x->[0]->[1] = 1 # $x->[2]->[3] # '', undef, [ [ undef, 1 ] ] # +fetch +$x->[0]->[1] = 1 # $x->[0]->[1] # '', 1, [ [ undef, 1 ] ] # +exists +$x->[0]->[1] = 1 # $x->[0]->[3] # '', undef, [ [ undef, 1 ] ] # +exists +$x->[0]->[1] = 1 # $x->[2]->[3] # '', undef, [ [ undef, 1 ], undef, [ ] ] # +exists +$x->[0]->[1] = 1 # $x->[0]->[1] # '', 1, [ [ undef, 1 ] ] # +delete +$x->[0]->[1] = 1 # $x->[0]->[3] # '', undef, [ [ undef, 1 ] ] # +delete +$x->[0]->[1] = 1 # $x->[2]->[3] # '', undef, [ [ undef, 1 ], undef, [ ] ] # +delete +$x->[0]->[1] = 1 # $x->[0]->[1] # '', 1, [ [ undef, 1 ] ] # +store +$x->[0]->[1] = 1 # $x->[0]->[3] # '', undef, [ [ undef, 1 ] ] # +store +$x->[0]->[1] = 1 # $x->[2]->[3] # '', undef, [ [ undef, 1 ], undef, [ ] ] # +store + +$x->[0]->[1] = 1 # $x->[0]->[1] # '', 1, [ [ undef, 1 ] ] # +strict +fetch +$x->[0]->[1] = 1 # $x->[0]->[3] # '', undef, [ [ undef, 1 ] ] # +strict +fetch +$x->[0]->[1] = 1 # $x->[2]->[3] # qr/^Reference vivification forbidden/, undef, [ [ undef, 1 ] ] # +strict +fetch +$x->[0]->[1] = 1 # $x->[0]->[1] # '', 1, [ [ undef, 1 ] ] # +strict +exists +$x->[0]->[1] = 1 # $x->[0]->[3] # '', undef, [ [ undef, 1 ] ] # +strict +exists +$x->[0]->[1] = 1 # $x->[2]->[3] # '', undef, [ [ undef, 1 ], undef, [ ] ] # +strict +exists +$x->[0]->[1] = 1 # $x->[0]->[1] # '', 1, [ [ undef, 1 ] ] # +strict +delete +$x->[0]->[1] = 1 # $x->[0]->[3] # '', undef, [ [ undef, 1 ] ] # +strict +delete +$x->[0]->[1] = 1 # $x->[2]->[3] # '', undef, [ [ undef, 1 ], undef, [ ] ] # +strict +delete +$x->[0]->[1] = 1 # $x->[0]->[1] # '', 1, [ [ undef, 1 ] ] # +strict +store +$x->[0]->[1] = 1 # $x->[0]->[3] # '', undef, [ [ undef, 1 ] ] # +strict +store +$x->[0]->[1] = 1 # $x->[2]->[3] # '', undef, [ [ undef, 1 ], undef, [ ] ] # +strict +store + +--- aliasing --- + +$x # 1 for $x->[0]; () # '', undef, [ undef ] +$x # 1 for $x->[0]; () # '', undef, undef # +$x # 1 for $x->[0]; () # '', undef, undef # +fetch +$x # 1 for $x->[0]; () # '', undef, [ undef ] # +exists +$x # 1 for $x->[0]; () # '', undef, [ undef ] # +delete +$x # 1 for $x->[0]; () # '', undef, [ undef ] # +store + +$x # $_ = 1 for $x->[0]; () # '', undef, [ 1 ] +$x # $_ = 1 for $x->[0]; () # '', undef, undef # +$x # $_ = 1 for $x->[0]; () # '', undef, undef # +fetch +$x # $_ = 1 for $x->[0]; () # '', undef, [ 1 ] # +exists +$x # $_ = 1 for $x->[0]; () # '', undef, [ 1 ] # +delete +$x # $_ = 1 for $x->[0]; () # '', undef, [ 1 ] # +store + +$x->[0] = 1 # 1 for $x->[0]; () # '', undef, [ 1 ] # +fetch +$x->[0] = 1 # 1 for $x->[1]; () # '', undef, [ 1, undef ] # +fetch +$x->[0] = 1 # 1 for $x->[0]; () # '', undef, [ 1 ] # +exists +$x->[0] = 1 # 1 for $x->[1]; () # '', undef, [ 1, undef ] # +exists +$x->[0] = 1 # 1 for $x->[0]; () # '', undef, [ 1 ] # +delete +$x->[0] = 1 # 1 for $x->[1]; () # '', undef, [ 1, undef ] # +delete +$x->[0] = 1 # 1 for $x->[0]; () # '', undef, [ 1 ] # +store +$x->[0] = 1 # 1 for $x->[1]; () # '', undef, [ 1, undef ] # +store + +--- exists --- + +$x # exists $x->[0] # '', '', [ ] +$x # exists $x->[0] # '', '', undef # +$x # exists $x->[0] # '', '', [ ] # +fetch +$x # exists $x->[0] # '', '', undef # +exists +$x # exists $x->[0] # '', '', [ ] # +delete +$x # exists $x->[0] # '', '', [ ] # +store + +$x # exists $x->[0] # '', '', [ ] # +strict +fetch +$x # exists $x->[0] # qr/^Reference vivification forbidden/, undef, undef # +strict +exists +$x # exists $x->[0] # '', '', [ ] # +strict +delete +$x # exists $x->[0] # '', '', [ ] # +strict +store + +$x # exists $x->[0]->[1] # '', '', [ [ ] ] +$x # exists $x->[0]->[1] # '', '', undef # +$x # exists $x->[0]->[1] # '', '', [ [ ] ] # +fetch +$x # exists $x->[0]->[1] # '', '', undef # +exists +$x # exists $x->[0]->[1] # '', '', [ [ ] ] # +delete +$x # exists $x->[0]->[1] # '', '', [ [ ] ] # +store + +$x # exists $x->[0]->[1] # '', '', [ [ ] ] # +strict +fetch +$x # exists $x->[0]->[1] # qr/^Reference vivification forbidden/, undef, undef # +strict +exists +$x # exists $x->[0]->[1] # '', '', [ [ ] ] # +strict +delete +$x # exists $x->[0]->[1] # '', '', [ [ ] ] # +strict +store + +$x->[0] = 1 # exists $x->[0] # '', 1, [ 1 ] # +fetch +$x->[0] = 1 # exists $x->[1] # '', '', [ 1 ] # +fetch +$x->[0] = 1 # exists $x->[0] # '', 1, [ 1 ] # +exists +$x->[0] = 1 # exists $x->[1] # '', '', [ 1 ] # +exists +$x->[0] = 1 # exists $x->[0] # '', 1, [ 1 ] # +delete +$x->[0] = 1 # exists $x->[1] # '', '', [ 1 ] # +delete +$x->[0] = 1 # exists $x->[0] # '', 1, [ 1 ] # +store +$x->[0] = 1 # exists $x->[1] # '', '', [ 1 ] # +store + +$x->[0] = 1 # exists $x->[0] # '', 1, [ 1 ] # +strict +fetch +$x->[0] = 1 # exists $x->[1] # '', '', [ 1 ] # +strict +fetch +$x->[0] = 1 # exists $x->[0] # '', 1, [ 1 ] # +strict +exists +$x->[0] = 1 # exists $x->[1] # '', '', [ 1 ] # +strict +exists +$x->[0] = 1 # exists $x->[0] # '', 1, [ 1 ] # +strict +delete +$x->[0] = 1 # exists $x->[1] # '', '', [ 1 ] # +strict +delete +$x->[0] = 1 # exists $x->[0] # '', 1, [ 1 ] # +strict +store +$x->[0] = 1 # exists $x->[1] # '', '', [ 1 ] # +strict +store + +$x->[0]->[1] = 1 # exists $x->[0]->[1] # '', 1, [ [ undef, 1 ] ] # +fetch +$x->[0]->[1] = 1 # exists $x->[0]->[3] # '', '', [ [ undef, 1 ] ] # +fetch +$x->[0]->[1] = 1 # exists $x->[2]->[3] # '', '', [ [ undef, 1 ], undef, [ ] ] # +fetch +$x->[0]->[1] = 1 # exists $x->[0]->[1] # '', 1, [ [ undef, 1 ] ] # +exists +$x->[0]->[1] = 1 # exists $x->[0]->[3] # '', '', [ [ undef, 1 ] ] # +exists +$x->[0]->[1] = 1 # exists $x->[2]->[3] # '', '', [ [ undef, 1 ] ] # +exists +$x->[0]->[1] = 1 # exists $x->[0]->[1] # '', 1, [ [ undef, 1 ] ] # +delete +$x->[0]->[1] = 1 # exists $x->[0]->[3] # '', '', [ [ undef, 1 ] ] # +delete +$x->[0]->[1] = 1 # exists $x->[2]->[3] # '', '', [ [ undef, 1 ], undef, [ ] ] # +delete +$x->[0]->[1] = 1 # exists $x->[0]->[1] # '', 1, [ [ undef, 1 ] ] # +store +$x->[0]->[1] = 1 # exists $x->[0]->[3] # '', '', [ [ undef, 1 ] ] # +store +$x->[0]->[1] = 1 # exists $x->[2]->[3] # '', '', [ [ undef, 1 ], undef, [ ] ] # +store + +$x->[0]->[1] = 1 # exists $x->[0]->[1] # '', 1, [ [ undef, 1 ] ] # +strict +fetch +$x->[0]->[1] = 1 # exists $x->[0]->[3] # '', '', [ [ undef, 1 ] ] # +strict +fetch +$x->[0]->[1] = 1 # exists $x->[2]->[3] # '', '', [ [ undef, 1 ], undef, [ ] ] # +strict +fetch +$x->[0]->[1] = 1 # exists $x->[0]->[1] # '', 1, [ [ undef, 1 ] ] # +strict +exists +$x->[0]->[1] = 1 # exists $x->[0]->[3] # '', '', [ [ undef, 1 ] ] # +strict +exists +$x->[0]->[1] = 1 # exists $x->[2]->[3] # qr/^Reference vivification forbidden/, undef, [ [ undef, 1 ] ] # +strict +exists +$x->[0]->[1] = 1 # exists $x->[0]->[1] # '', 1, [ [ undef, 1 ] ] # +strict +delete +$x->[0]->[1] = 1 # exists $x->[0]->[3] # '', '', [ [ undef, 1 ] ] # +strict +delete +$x->[0]->[1] = 1 # exists $x->[2]->[3] # '', '', [ [ undef, 1 ], undef, [ ] ] # +strict +delete +$x->[0]->[1] = 1 # exists $x->[0]->[1] # '', 1, [ [ undef, 1 ] ] # +strict +store +$x->[0]->[1] = 1 # exists $x->[0]->[3] # '', '', [ [ undef, 1 ] ] # +strict +store +$x->[0]->[1] = 1 # exists $x->[2]->[3] # '', '', [ [ undef, 1 ], undef, [ ] ] # +strict +store + +--- delete --- + +$x # delete $x->[0] # '', undef, [ ] +$x # delete $x->[0] # '', undef, undef # +$x # delete $x->[0] # '', undef, [ ] # +fetch +$x # delete $x->[0] # '', undef, [ ] # +exists +$x # delete $x->[0] # '', undef, undef # +delete +$x # delete $x->[0] # '', undef, [ ] # +store + +$x # delete $x->[0] # '', undef, [ ] # +strict +fetch +$x # delete $x->[0] # '', undef, [ ] # +strict +exists +$x # delete $x->[0] # qr/^Reference vivification forbidden/, undef, undef # +strict +delete +$x # delete $x->[0] # '', undef, [ ] # +strict +store + +$x # delete $x->[0]->[1] # '', undef, [ [ ] ] +$x # delete $x->[0]->[1] # '', undef, undef # +$x # delete $x->[0]->[1] # '', undef, [ [ ] ] # +fetch +$x # delete $x->[0]->[1] # '', undef, [ [ ] ] # +exists +$x # delete $x->[0]->[1] # '', undef, undef # +delete +$x # delete $x->[0]->[1] # '', undef, [ [ ] ] # +store + +$x # delete $x->[0]->[1] # '', undef, [ [ ] ] # +strict +fetch +$x # delete $x->[0]->[1] # '', undef, [ [ ] ] # +strict +exists +$x # delete $x->[0]->[1] # qr/^Reference vivification forbidden/, undef, undef # +strict +delete +$x # delete $x->[0]->[1] # '', undef, [ [ ] ] # +strict +store + +$x->[0] = 1 # delete $x->[0] # '', 1, [ ] # +fetch +$x->[0] = 1 # delete $x->[1] # '', undef, [ 1 ] # +fetch +$x->[0] = 1 # delete $x->[0] # '', 1, [ ] # +exists +$x->[0] = 1 # delete $x->[1] # '', undef, [ 1 ] # +exists +$x->[0] = 1 # delete $x->[0] # '', 1, [ ] # +delete +$x->[0] = 1 # delete $x->[1] # '', undef, [ 1 ] # +delete +$x->[0] = 1 # delete $x->[0] # '', 1, [ ] # +store +$x->[0] = 1 # delete $x->[1] # '', undef, [ 1 ] # +store + +$x->[0] = 1 # delete $x->[0] # '', 1, [ ] # +strict +fetch +$x->[0] = 1 # delete $x->[1] # '', undef, [ 1 ] # +strict +fetch +$x->[0] = 1 # delete $x->[0] # '', 1, [ ] # +strict +exists +$x->[0] = 1 # delete $x->[1] # '', undef, [ 1 ] # +strict +exists +$x->[0] = 1 # delete $x->[0] # '', 1, [ ] # +strict +delete +$x->[0] = 1 # delete $x->[1] # '', undef, [ 1 ] # +strict +delete +$x->[0] = 1 # delete $x->[0] # '', 1, [ ] # +strict +store +$x->[0] = 1 # delete $x->[1] # '', undef, [ 1 ] # +strict +store + +$x->[0]->[1] = 1 # delete $x->[0]->[1] # '', 1, [ [ ] ] # +fetch +$x->[0]->[1] = 1 # delete $x->[0]->[3] # '', undef, [ [ undef, 1 ] ]# +fetch +$x->[0]->[1] = 1 # delete $x->[2]->[3] # '', undef, [ [ undef, 1 ], undef, [ ] ] # +fetch +$x->[0]->[1] = 1 # delete $x->[0]->[1] # '', 1, [ [ ] ] # +exists +$x->[0]->[1] = 1 # delete $x->[0]->[3] # '', undef, [ [ undef, 1 ] ]# +exists +$x->[0]->[1] = 1 # delete $x->[2]->[3] # '', undef, [ [ undef, 1 ], undef, [ ] ] # +exists +$x->[0]->[1] = 1 # delete $x->[0]->[1] # '', 1, [ [ ] ] # +delete +$x->[0]->[1] = 1 # delete $x->[0]->[3] # '', undef, [ [ undef, 1 ] ]# +delete +$x->[0]->[1] = 1 # delete $x->[2]->[3] # '', undef, [ [ undef, 1 ] ]# +delete +$x->[0]->[1] = 1 # delete $x->[0]->[1] # '', 1, [ [ ] ] # +store +$x->[0]->[1] = 1 # delete $x->[0]->[3] # '', undef, [ [ undef, 1 ] ]# +store +$x->[0]->[1] = 1 # delete $x->[2]->[3] # '', undef, [ [ undef, 1 ], undef, [ ] ] # +store + +$x->[0]->[1] = 1 # delete $x->[0]->[1] # '', 1, [ [ ] ] # +strict +fetch +$x->[0]->[1] = 1 # delete $x->[0]->[3] # '', undef, [ [ undef, 1 ] ] # +strict +fetch +$x->[0]->[1] = 1 # delete $x->[2]->[3] # '', undef, [ [ undef, 1 ], undef, [ ] ]# +strict +fetch +$x->[0]->[1] = 1 # delete $x->[0]->[1] # '', 1, [ [ ] ] # +strict +exists +$x->[0]->[1] = 1 # delete $x->[0]->[3] # '', undef, [ [ undef, 1 ] ] # +strict +exists +$x->[0]->[1] = 1 # delete $x->[2]->[3] # '', undef, [ [ undef, 1 ], undef, [ ] ]# +strict +exists +$x->[0]->[1] = 1 # delete $x->[0]->[1] # '', 1, [ [ ] ] # +strict +delete +$x->[0]->[1] = 1 # delete $x->[0]->[3] # '', undef, [ [ undef, 1 ] ] # +strict +delete +$x->[0]->[1] = 1 # delete $x->[2]->[3] # qr/^Reference vivification forbidden/, undef, [ [ undef, 1 ] ] # +strict +delete +$x->[0]->[1] = 1 # delete $x->[0]->[1] # '', 1, [ [ ] ] # +strict +store +$x->[0]->[1] = 1 # delete $x->[0]->[3] # '', undef, [ [ undef, 1 ] ] # +strict +store +$x->[0]->[1] = 1 # delete $x->[2]->[3] # '', undef, [ [ undef, 1 ], undef, [ ] ]# +strict +store + +--- store --- + +$x # $x->[0] = 1 # '', 1, [ 1 ] +$x # $x->[0] = 1 # '', 1, [ 1 ] # +$x # $x->[0] = 1 # '', 1, [ 1 ] # +fetch +$x # $x->[0] = 1 # '', 1, [ 1 ] # +exists +$x # $x->[0] = 1 # '', 1, [ 1 ] # +delete +$x # $x->[0] = 1 # qr/^Can't vivify reference/, undef, undef # +store + +$x # $x->[0] = 1 # '', 1, [ 1 ] # +strict +fetch +$x # $x->[0] = 1 # '', 1, [ 1 ] # +strict +exists +$x # $x->[0] = 1 # '', 1, [ 1 ] # +strict +delete +$x # $x->[0] = 1 # qr/^Reference vivification forbidden/, undef, undef # +strict +store + +$x # $x->[0]->[1] = 1 # '', 1, [ [ undef, 1 ] ] +$x # $x->[0]->[1] = 1 # '', 1, [ [ undef, 1 ] ] # +$x # $x->[0]->[1] = 1 # '', 1, [ [ undef, 1 ] ] # +fetch +$x # $x->[0]->[1] = 1 # '', 1, [ [ undef, 1 ] ] # +exists +$x # $x->[0]->[1] = 1 # '', 1, [ [ undef, 1 ] ] # +delete +$x # $x->[0]->[1] = 1 # qr/^Can't vivify reference/, undef, undef # +store + +$x # $x->[0]->[1] = 1 # '', 1, [ [ undef, 1 ] ] # +strict +fetch +$x # $x->[0]->[1] = 1 # '', 1, [ [ undef, 1 ] ] # +strict +exists +$x # $x->[0]->[1] = 1 # '', 1, [ [ undef, 1 ] ] # +strict +delete +$x # $x->[0]->[1] = 1 # qr/^Reference vivification forbidden/, undef, undef # +strict +store + +$x->[0] = 1 # $x->[0] = 2 # '', 2, [ 2 ] # +fetch +$x->[0] = 1 # $x->[1] = 2 # '', 2, [ 1, 2 ] # +fetch +$x->[0] = 1 # $x->[0] = 2 # '', 2, [ 2 ] # +exists +$x->[0] = 1 # $x->[1] = 2 # '', 2, [ 1, 2 ] # +exists +$x->[0] = 1 # $x->[0] = 2 # '', 2, [ 2 ] # +delete +$x->[0] = 1 # $x->[1] = 2 # '', 2, [ 1, 2 ] # +delete +$x->[0] = 1 # $x->[0] = 2 # '', 2, [ 2 ] # +store +$x->[0] = 1 # $x->[1] = 2 # '', 2, [ 1, 2 ] # +store + +$x->[0] = 1 # $x->[0] = 2 # '', 2, [ 2 ] # +strict +fetch +$x->[0] = 1 # $x->[1] = 2 # '', 2, [ 1, 2 ] # +strict +fetch +$x->[0] = 1 # $x->[0] = 2 # '', 2, [ 2 ] # +strict +exists +$x->[0] = 1 # $x->[1] = 2 # '', 2, [ 1, 2 ] # +strict +exists +$x->[0] = 1 # $x->[0] = 2 # '', 2, [ 2 ] # +strict +delete +$x->[0] = 1 # $x->[1] = 2 # '', 2, [ 1, 2 ] # +strict +delete +$x->[0] = 1 # $x->[0] = 2 # '', 2, [ 2 ] # +strict +store +$x->[0] = 1 # $x->[1] = 2 # '', 2, [ 1, 2 ] # +strict +store + +$x->[0]->[1] = 1 # $x->[0]->[1] = 2 # '', 2, [ [ undef, 2 ] ] # +fetch +$x->[0]->[1] = 1 # $x->[0]->[3] = 2 # '', 2, [ [ undef, 1, undef, 2 ] ] # +fetch +$x->[0]->[1] = 1 # $x->[2]->[3] = 2 # '', 2, [ [ undef, 1 ], undef, [ undef, undef, undef, 2 ] ] # +fetch +$x->[0]->[1] = 1 # $x->[0]->[1] = 2 # '', 2, [ [ undef, 2 ] ] # +exists +$x->[0]->[1] = 1 # $x->[0]->[3] = 2 # '', 2, [ [ undef, 1, undef, 2 ] ] # +exists +$x->[0]->[1] = 1 # $x->[2]->[3] = 2 # '', 2, [ [ undef, 1 ], undef, [ undef, undef, undef, 2 ] ] # +exists +$x->[0]->[1] = 1 # $x->[0]->[1] = 2 # '', 2, [ [ undef, 2 ] ] # +delete +$x->[0]->[1] = 1 # $x->[0]->[3] = 2 # '', 2, [ [ undef, 1, undef, 2 ] ] # +delete +$x->[0]->[1] = 1 # $x->[2]->[3] = 2 # '', 2, [ [ undef, 1 ], undef, [ undef, undef, undef, 2 ] ] # +delete +$x->[0]->[1] = 1 # $x->[0]->[1] = 2 # '', 2, [ [ undef, 2 ] ] # +store +$x->[0]->[1] = 1 # $x->[0]->[3] = 2 # '', 2, [ [ undef, 1, undef, 2 ] ] # +store +$x->[0]->[1] = 1 # $x->[2]->[3] = 2 # qr/^Can't vivify reference/, undef, [ [ undef, 1 ] ] # +store + +$x->[0]->[1] = 1 # $x->[0]->[1] = 2 # '', 2, [ [ undef, 2 ] ] # +strict +fetch +$x->[0]->[1] = 1 # $x->[0]->[3] = 2 # '', 2, [ [ undef, 1, undef, 2 ] ] # +strict +fetch +$x->[0]->[1] = 1 # $x->[2]->[3] = 2 # '', 2, [ [ undef, 1 ], undef, [ undef, undef, undef, 2 ] ] # +strict +fetch +$x->[0]->[1] = 1 # $x->[0]->[1] = 2 # '', 2, [ [ undef, 2 ] ] # +strict +exists +$x->[0]->[1] = 1 # $x->[0]->[3] = 2 # '', 2, [ [ undef, 1, undef, 2 ] ] # +strict +exists +$x->[0]->[1] = 1 # $x->[2]->[3] = 2 # '', 2, [ [ undef, 1 ], undef, [ undef, undef, undef, 2 ] ] # +strict +exists +$x->[0]->[1] = 1 # $x->[0]->[1] = 2 # '', 2, [ [ undef, 2 ] ] # +strict +delete +$x->[0]->[1] = 1 # $x->[0]->[3] = 2 # '', 2, [ [ undef, 1, undef, 2 ] ] # +strict +delete +$x->[0]->[1] = 1 # $x->[2]->[3] = 2 # '', 2, [ [ undef, 1 ], undef, [ undef, undef, undef, 2 ] ] # +strict +delete +$x->[0]->[1] = 1 # $x->[0]->[1] = 2 # '', 2, [ [ undef, 2 ] ] # +strict +store +$x->[0]->[1] = 1 # $x->[0]->[3] = 2 # '', 2, [ [ undef, 1, undef, 2 ] ] # +strict +store +$x->[0]->[1] = 1 # $x->[2]->[3] = 2 # qr/^Reference vivification forbidden/, undef, [ [ undef, 1 ] ] # +strict +store