[perl #57422] Assigning to instance hashes,arrays fails

[jn...@jnthn.net via RT]

Hi,

As of r30090, the following:

--
class Foo {
    has %.bar is rw;
    method set_bar {
        %.bar<a> = 'baz';
    }
}
my $foo = Foo.new;
$foo.set_bar();
my %s = $foo.bar;
say %s<a>; 
--

Now prints "baz". Also this:

--
class Bar {
    has @.bar is rw;
    method set_bar {
        @.bar[0] = 100;
        @.bar[1] = 200;
    }
}
my $bar = Bar.new;
$bar.set_bar();
my @t = $bar.bar;
say @t[0];
say @t[1];
--

Prints 100, then 200.

Thanks for reporting!

Jonathan