From publiustemp-perl6users@yahoo.com

Not even remotely sure how to describe this, but​:

  class Foo {
  has @​something is rw;

  method doit {
  @​something = <1 2 3>;
  say self!something;
  }

  my method something () {
  return "Hello, World!";
  }
  }
  my Foo $foo .= new;
  $foo.doit;

That prints '123'.

Comment out the @​something lines and it prints "Hello, World!" as expected.

$ svn info; uname -a
Path​: .
URL​: https://svn.perl.org/parrot/trunk
Repository Root​: https://svn.perl.org/parrot
Repository UUID​: d31e2699-5ff4-0310-a27c-f18f2fbe73fe
Revision​: 34446
Node Kind​: directory
Schedule​: normal
Last Changed Author​: kjs
Last Changed Rev​: 34446
Last Changed Date​: 2008-12-27 21​:17​:55 +0000 (Sat, 27 Dec 2008)

Darwin curtis-poes-computer-3.local 9.5.1 Darwin Kernel Version 9.5.1​: Fri Sep 19 16​:19​:24 PDT 2008; root​:xnu-1228.8.30~1/RELEASE_I386 i386

Cheers,
Ovid
--
Buy the book - http://www.oreilly.com/catalog/perlhks/
Tech blog - http://use.perl.org/~Ovid/journal/
Twitter - http://twitter.com/OvidPerl
Official Perl 6 Wiki - http://www.perlfoundation.org/perl6

From @moritz

On Sat Dec 27 14​:05​:50 2008, publiustemp-perl6users@​yahoo.com wrote​:

Not even remotely sure how to describe this, but​:

class Foo \{
    has @​something is rw;

    method doit \{
        @&#8203;something = \<1 2 3>;
        say self\!something;
    \}

    my method something \(\) \{
        return "Hello, World\!";
    \}

If you have a method with the same name as an attribute, you override
the accessor to that attribute.

Note that
has @​something;
just creates an alias to @​.something, which in turn desugars into the
method call @​( self.something )

\}
my Foo $foo \.= new;
$foo\.doit;

That prints '123'.

Which means that user-defined methods can't override implictly generated
accessors, which is the real bug here.

Thanks for your report,
Moritz

The RT System itself - Status changed from 'new' to 'open'

From @pmichaud

This now works as of c907d37​:

  $ cat 61774
  class A {
  has @​something is rw;
  method doit {
  @​something = <1 2 3>;
  say self!something;
  }
  my method something {
  "Hello, world";
  }
  }

  my A $a .= new;
  $a.doit;

  $ ./perl6 61774
  Hello, world

Assigning ticket for spectest verification...and then we can close the
ticket. Thanks!

Pm

From @jnthn

Assigning to moritz++ for spectests (as if I write tests :-P).

From @moritz

Added as test to the ever-growing spec/S12-methods/instance.t.

Cheers,
Moritz

@moritz - Status changed from 'open' to 'resolved'