Something is wrong with $_ topicalization in statement_mod 'for' and 'given' in Rakudo

[p6rt]

Migrated from rt.perl.org#100746 (status was 'resolved')

Searchable as RT100746$

[p6rt]

From @masak

<masak> nom​: my $t = q[%foo% %bar% %foo% %baz%]; my %b = foo => 1, bar
=> 2, baz => 3; $t.=subst("%{.key}%", .value, :g) for %b.pairs; say $t
<p6eval> nom 4f19b7​: OUTPUT«Method 'key' not found for invocant of
class 'Any' [...]
<masak> b​: my $t = q[%foo% %bar% %foo% %baz%]; my %b = foo => 1, bar
=> 2, baz => 3; $t.=subst("%{.key}%", .value, :g) for %b.pairs; say $t
<p6eval> b 1b7dd1​: OUTPUT«1 2 1 3␤»
<moritz> nom​: my %b = foo => 1, bar => 2, baz => 3; say "{.key}" for %b.pairs
<p6eval> nom 4f19b7​: OUTPUT«Method 'key' not found for invocant of
class 'Any' [...]
<moritz> b​: my %b = foo => 1, bar => 2, baz => 3; say "{.key}" for %b.pairs
<p6eval> b 1b7dd1​: OUTPUT«foo␤bar␤baz␤»
<moritz> nom​: say "{.key}" given a => 1
<p6eval> nom 4f19b7​: OUTPUT«Method 'key' not found for invocant of
class 'Any' [...]
<moritz> b​: say "{.key}" given a => 1
<p6eval> b 1b7dd1​: OUTPUT«a␤»
<moritz> nom​: $_ = a => 1; say "{.key}"
<p6eval> nom 4f19b7​: OUTPUT«a␤»
<masak> odd, no?
<moritz> yes, seems like topicalization by 'given' and 'for' does
something differently
<moritz> ... different than $_ assignment, that is
* masak submits rakudobug

[p6rt]

From @coke

On Wed Oct 05 06​:05​:05 2011, masak wrote​:

<masak> nom​: my $t = q[%foo% %bar% %foo% %baz%]; my %b = foo => 1, bar
=> 2, baz => 3; $t.=subst("%{.key}%", .value, :g) for %b.pairs; say $t
<p6eval> nom 4f19b7​: OUTPUT«Method 'key' not found for invocant of
class 'Any' [...]
<masak> b​: my $t = q[%foo% %bar% %foo% %baz%]; my %b = foo => 1, bar
=> 2, baz => 3; $t.=subst("%{.key}%", .value, :g) for %b.pairs; say $t
<p6eval> b 1b7dd1​: OUTPUT«1 2 1 3␤»
<moritz> nom​: my %b = foo => 1, bar => 2, baz => 3; say "{.key}" for
%b.pairs
<p6eval> nom 4f19b7​: OUTPUT«Method 'key' not found for invocant of
class 'Any' [...]
<moritz> b​: my %b = foo => 1, bar => 2, baz => 3; say "{.key}" for
%b.pairs
<p6eval> b 1b7dd1​: OUTPUT«foo␤bar␤baz␤»
<moritz> nom​: say "{.key}" given a => 1
<p6eval> nom 4f19b7​: OUTPUT«Method 'key' not found for invocant of
class 'Any' [...]
<moritz> b​: say "{.key}" given a => 1
<p6eval> b 1b7dd1​: OUTPUT«a␤»
<moritz> nom​: $_ = a => 1; say "{.key}"
<p6eval> nom 4f19b7​: OUTPUT«a␤»
<masak> odd, no?
<moritz> yes, seems like topicalization by 'given' and 'for' does
something differently
<moritz> ... different than $_ assignment, that is
* masak submits rakudobug

These all now work like b did. Closable with tests.

./perl6

my $t = q[%foo% %bar% %foo% %baz%]; my %b = foo => 1, bar => 2, baz => 3; $t.=subst("%
{.key}%", .value, :g) for %b.pairs; say $t
1 2 1 3
my %b = foo => 1, bar => 2, baz => 3; say "{.key}" for %b.pairs
foo
bar
baz
say "{.key}" given a => 1
a
$_ = a => 1; say "{.key}"
a

--
Will "Coke" Coleda

[p6rt]

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

[p6rt]

From @usev6

As a status update​: we're back at the original failures​:

$ perl6 -e 'my $t = q[%foo% %bar% %foo% %baz%]; my %b = foo => 1, bar => 2, baz => 3; $t.=subst("%{.key}%", .value, :g) for %b.pairs; say $t'
Method 'key' not found for invocant of class 'Any'
  in block <unit> at -e​:1

$ perl6-m -e 'my %b = foo => 1, bar => 2, baz => 3; say "{.key}" for %b.pairs'
Method 'key' not found for invocant of class 'Any'
  in block <unit> at -e​:1

$ perl6 -e 'say "{.key}" given a => 1'
Method 'key' not found for invocant of class 'Any'
  in block <unit> at -e​:1

It works when for is followed by a block (instead of the statement_mod form)

$ perl6 -e 'my %b = foo => 1, bar => 2, baz => 3; for %b.pairs { say "{.key}" }'
foo
bar
baz

[p6rt]

From @usev6

As a status update​: we're back at the original failures​:

$ perl6 -e 'my $t = q[%foo% %bar% %foo% %baz%]; my %b = foo => 1, bar => 2, baz => 3; $t.=subst("%{.key}%", .value, :g) for %b.pairs; say $t'
Method 'key' not found for invocant of class 'Any'
  in block <unit> at -e​:1

$ perl6-m -e 'my %b = foo => 1, bar => 2, baz => 3; say "{.key}" for %b.pairs'
Method 'key' not found for invocant of class 'Any'
  in block <unit> at -e​:1

$ perl6 -e 'say "{.key}" given a => 1'
Method 'key' not found for invocant of class 'Any'
  in block <unit> at -e​:1

It works when for is followed by a block (instead of the statement_mod form)

$ perl6 -e 'my %b = foo => 1, bar => 2, baz => 3; for %b.pairs { say "{.key}" }'
foo
bar
baz

[p6rt]

From @jnthn

On Sun Apr 19 02​:54​:22 2015, bartolin@​gmx.de wrote​:

As a status update​: we're back at the original failures​:

$ perl6 -e 'my $t = q[%foo% %bar% %foo% %baz%]; my %b = foo => 1, bar
=> 2, baz => 3; $t.=subst("%{.key}%", .value, :g) for %b.pairs; say
$t'
Method 'key' not found for invocant of class 'Any'
in block <unit> at -e​:1

$ perl6-m -e 'my %b = foo => 1, bar => 2, baz => 3; say "{.key}" for
%b.pairs'
Method 'key' not found for invocant of class 'Any'
in block <unit> at -e​:1

$ perl6 -e 'say "{.key}" given a => 1'
Method 'key' not found for invocant of class 'Any'
in block <unit> at -e​:1

It works when for is followed by a block (instead of the statement_mod
form)

$ perl6 -e 'my %b = foo => 1, bar => 2, baz => 3; for %b.pairs { say
"{.key}" }'
foo
bar
baz

Fixed and unfudged tests in S04-statement-modifier/for.t and S04-statement-modifier/given.t.

[p6rt]

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