placeholder vs. lexical variables

[Dan Kogai]

Folks,

I found this when I was playing w/ pugs.

pugs> { $^x }.(42)
42
pugs> { my $z; $^x }.(42)
*** Undeclared variable: "$^x"
at <interactive> line 1, column 10-14

So far as I see s06, there's nothing wrong w/ the statement above. I
just want to make sure this is not a perl6 feature.

I found this when I tried

{ my %n; { %n{ $^n } ||= ($^n <= 2 ?? 1 !! &?BLOCK($^n-1) + &?
BLOCK($^n-2)) }.($^n) }.(42)

This fails on pugs while

-> $n { my %n; { %n{ $^n } ||= ($^n <= 2 ?? 1 !! &?BLOCK($^n-1)
+ &?BLOCK($^n-2)) }.($n) }.(42)

beautifully returns 267914296.

Dan the Yet Another Pugs Addict

[Audrey Tang]

Dan Kogai wrote:
> I found this when I was playing w/ pugs.
>
> pugs> { $^x }.(42)
> 42
> pugs> { my $z; $^x }.(42)
> *** Undeclared variable: "$^x"
> at <interactive> line 1, column 10-14
>
> So far as I see s06, there's nothing wrong w/ the statement above. I
> just want to make sure this is not a perl6 feature.

This is a Pugs bug, so perl6-compiler is perhaps more adequate. :-)

Please commit a test for it somewhere (in
t/subroutines/implicit_parameters.t maybe?), as I've just fixed the bug.
(r9913)

{ my %n; { %n{ $^n } ||= ($^n <= 2 ?? 1 !! &?BLOCK($^n-1) +

&?BLOCK($^n-2)) }.($^n) }.(42)

now evaluates to 267914296 here too. :)

Audrey