This code appears to be working for me:
$ cat 65412
class A {
has $!rx;
method do { $!rx = / xyz / }
}
A.new.do
$ ./perl6 65412
$
I suspect the problem is really with the evalbot attempting to evaluate
the returned regex in boolean context after the progr
This is now working properly in c907d37 ... assigning ticket for
spectest verification, and then it can be closed.
Thanks!
Pm
Rakudo now gives a much more useful error message for the case where
make() cannot set a result object:
$ cat 63800
grammar G {
regex TOP { 'a' {*} }
}
class GA {
method TOP($m) { make GA.new }
}
G.parse('a', :action(GA.new));
$ ./perl6 63800
make
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,
Now fixed in c907d37:
$ cat 61988
class A {
method foo { say @_; }
method bar { $.foo(42); }
}
A.bar;
$ ./perl6 61988
42
$
Assigning ticket for spectest verification.
Thanks!
Pm
On Wed Dec 24 08:44:36 2008, dwh...@nvidia.com wrote:
> (rakudo 34337)
>
> >>> $_ = "a"; say /a/ ?? "yes" !! "no"
> yes
> >>> $_ = "a"; say /b/ ?? "yes" !! "no"
> Yes --- WRONG!
This now works as of fc01cda:
pmich...@orange:~/rakudo$ ./perl6
> $_ = "a"; say /a/ ?? 'yes' !! 'no';
yes
> $_ = "a";
# New Ticket Created by "Carl Mäsak"
# Please include the string: [perl #66196]
# in the subject line of all future correspondence about this issue.
# http://rt.perl.org/rt3/Ticket/Display.html?id=66196 >
rakudo: my $str="TEST"; say $str.bytes
rakudo d396ab: OUTPUT«ResizableStringArray: Can
# New Ticket Created by "Carl Mäsak"
# Please include the string: [perl #66204]
# in the subject line of all future correspondence about this issue.
# http://rt.perl.org/rt3/Ticket/Display.html?id=66204 >
rakudo: class Dog {}; say Dog.defined; Dog .= new; say Dog.defined
rakudo d396ab: OUTP
