From @sorear

# This prints gothere ONCE
# Removing either sink expression causes the correct two prints
# rakudo e16cf4
for 1, 2 {
  $^a;
  $^a;
  say "gothere";
}

From @moritz

On Thu Apr 29 10​:17​:29 2010, stefanor@​cox.net wrote​:

# This prints gothere ONCE
# Removing either sink expression causes the correct two prints
# rakudo e16cf4
for 1, 2 {
$^a;
$^a;
say "gothere";
}

The occurrence of two $^a's adds two positional parameter to the block,
making it loop only once over a list made of two items.

So it's really a signature problem, not primarily a problem with control
flow.

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

From @jnthn

On Sat May 01 01​:09​:55 2010, moritz wrote​:

On Thu Apr 29 10​:17​:29 2010, stefanor@​cox.net wrote​:

# This prints gothere ONCE
# Removing either sink expression causes the correct two prints
# rakudo e16cf4
for 1, 2 {
$^a;
$^a;
say "gothere";
}

The occurrence of two $^a's adds two positional parameter to the block,
making it loop only once over a list made of two items.

So it's really a signature problem, not primarily a problem with control
flow.

Also an ex-problem...

for 1,2 { say $^a ~ $^a }
11
22

Given to moritz++ for spectests.

Thanks,

Jonathan

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

From @kyleha

This is an automatically generated mail to inform you that tests are now available in t/spec/S06-signature/positional-placeholders.t

commit dd19e4e30646d9098f4eccdad309f77977533d44
Author​: moritz <moritz@​c213334d-75ef-0310-aa23-eaa082d1ae64>
Date​: Sat May 8 09​:11​:56 2010 +0000

  [t/spec] test for RT #​74778, multiple occurences of $^a should count as a single parameter
 
  git-svn-id​: http://svn.pugscode.org/pugs@&#8203;30586 c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/S06-signature/positional-placeholders.t b/t/spec/S06-signature/positional-placeholders.t
index a458276..4385a07 100644
--- a/t/spec/S06-signature/positional-placeholders.t
+++ b/t/spec/S06-signature/positional-placeholders.t
@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 6;
+plan 7;
 
 #L<S06/Placeholder variables/>
 
@@ -29,4 +29,13 @@ non_twigil(5);
 eval_dies_ok( ' {$foo; $^foo;}(1) ',
 'A non-twigil variable should not precede a corresponding twigil variable' );
 
+# RT #74778
+{
+    my $tracker = '';
+    for 1, 2 {
+        $tracker ~= $^a ~ $^a ~ '|';
+    }
+    is $tracker, '11|22|', 'two occurences of $^a count as one param';
+}
+
 # vim: syn=perl6