# New Ticket Created by Ovid
# Please include the string: [perl #61774]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=61774 >
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
