From @finanalyst

perl6

my @​x=1,2,3,4; my @​z; for @​x { @​z[+*] = $_ }; @​z.perl.say
[4]
my @​x=1,2,3,4; my @​z; for @​x { @​z[+@​z] = $_ }; @​z.perl.say
[1,2,3,4]

From @pmichaud

On Sat Jul 11 06​:57​:11 2009, richardh wrote​:

perl6

my @​x=1,2,3,4; my @​z; for @​x { @​z[+*] = $_ }; @​z.perl.say
[4]
my @​x=1,2,3,4; my @​z; for @​x { @​z[+@​z] = $_ }; @​z.perl.say
[1,2,3,4]

Now fixed in f48920, thanks!

  $ ./perl6
  > my @​x = 1,2,3,4; my @​z; for @​x { @​z[+*] = $_ }; @​z.perl.say
  [1, 2, 3, 4]

We need verification of a spectest in order to close this ticket.

Pm

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

From @kyleha

This is an automatically generated mail to inform you that tests are now available in t/spec/S02-builtin_data_types/whatever.t

commit f393f9c5b8f153e317cc29d4f072fce98dd053a0
Author​: moritz <moritz@​c213334d-75ef-0310-aa23-eaa082d1ae64>
Date​: Tue Aug 11 21​:44​:34 2009 +0000

  [t/spec] test for RT #​67450 - +* as array index
 
  git-svn-id​: http://svn.pugscode.org/pugs@&#8203;27963 c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/S02-builtin_data_types/whatever.t b/t/spec/S02-builtin_data_types/whatever.t
index 3e1766c..ec46f9c 100644
--- a/t/spec/S02-builtin_data_types/whatever.t
+++ b/t/spec/S02-builtin_data_types/whatever.t
@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 16;
+plan 17;
 
 # L<S02/Built-In Data Types/"The * character as a standalone term captures the notion of">
 # L<S02/Native types/"If any native type is explicitly initialized to">
@@ -58,6 +58,14 @@ is @a, [1,2,3,4], '*.meth created closure works';
     # and here are two actual applications of +*
     is sort($x, @list), [1,2,3,10], '+* generates closure to numify';
     is @list.sort($x), [1,2,3,10], '+* generates closure to numify';
+
+    # test that  +* works in a slice
+    my @x1;
+    for 1..4 {
+        @x1[+*] = $_;
+    }
+    is @x1.join('|'), '1|2|3|4', '+* in hash slice (RT 67450)';
 }
 
+
 # vim: ft=perl6

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